Discussion :

[vodevil]

Je cherche comment trier efficacement un hash par rapport a un autre le but est de supprimer les valeurs déjà présente du hash de référence du hash en cours

J'ai ce ti script qui marche très bien mais je trouve qu'il fait beaucoup de boucles ce qui peut poser problème avec des hash de plusieur milliers voir million de valeurs .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl -w
 
 
my %i = ( maison => ["aa"] );   # -> sql
my %l = (maison => ["bb"], rien => ["gna","nananan"] );    # -> page
 
my @tab = (keys %i);
my @ref = (keys %l);
 
for ($a = 0; $a <= $#tab; $a++) {
  for ($b = 0; $b <= $#ref; $b++) {
    if ( $tab[$a] =~ /$ref[$b]/gi ) {
      delete $ref[$b];
    }
  }
}
 
 
 foreach my $key (@ref) {
   print "$l{$key}[0] et $l{$key}[1]\n";
}

Je cherche des optimisations si vous avez des idées je suis preneur

[2Eurocents]

Je cherche des optimisations si vous avez des idées je suis preneur

Comme ça, peut être ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl -w
 
my %i = ( maison => ["aa"] );   # -> sql
my %l = (maison => ["bb"], rien => ["gna","nananan"] );    # -> page
 
@ref = grep { not exists ($i{$_}) } keys (%l);
 
foreach my $key (@ref) {
   print "$l{$key}[0] et $l{$key}[1]\n";
}

[vodevil]

Merci pr to aide mais ton script a un ti problème c'est que dans le mien j'utilise un regxp avec gi car les clefs non pas toute forcément la même casse

[Jedai]

La Casse est-elle importante à conserver ?
Si la réponse est non, je te conseille de réfléchir à passez toutes tes clés en minuscules, de préférence à la création.
Si la réponse est oui, il vaut mieux essayer d'utiliser Regexp::Assemble par exemple. Ainsi l'opération sera en O(n) plutôt que O(n²).

--
Jedaï

[vodevil]

mettre les mots en minuscule ne me pose pas de problème si par excemple sa ne détruit pas les caractères non latin par exemple un mot en sanskrit

[2Eurocents]

Il y a aussi la possibilité d'utiliser un attribut ou un Tie "NoCase" à la construction du hash dans lequel on supprime.

C'est une éventualité pratique que j'ai trouvé dans un Linuxmag (N° 49, avril 2003), mais que je n'ai jamais eu l'occasion d'essayer.

[vodevil]

J'ai cherché, Attribute::nocase mais pas moyen de mettre la main dessus