Bonjour,
je cherche à effectuer un tri sur les éléments d'une hash.
Je sais que l'utilisation d'un tableau aurait été plus recommandé mais pas dans mon cas, vu l'utilisation que je fais de ma structure.
Ce que j'ai cherché a faire :
- récupérer les clés de mon tableau
- faire un sort sur mon tableau pour trier les clés en fonction des valeurs de ma hash
- parcourir ma hash dans l'ordre grace au tableau précédent
Je pensais que ca marchait mais en fait non, apparement ca fait intervenir je ne sais quoi d'aléatoire (le rangement des hash en mémoire?) qui fait que j'arrive a obtenir des résultats étranges...
J'ai fait un test vite fait pour me montrer que ca ne marchait pas mais j'aimerai bien comprendre pourquoi, et évidemment le faire fonctionner...
Voila le code :
Code :
- #!/usr/bin/perl -w
- use warnings;
- use strict;
- use Data::Dumper;
- my %hash_test = ('zservice1'=>101,'gservice2'=>201,'lservice3'=>301,'aservice4'=>401,'oservice5'=>501,'bservice6'=>601);
- my @liste_cles = keys %hash_test;
- print "Liste non triée\n";
- print Dumper @liste_cles;
- // apparement c'est ici que ca cloche...
- my @liste_cles_tries = sort {$hash_test{$a} < $hash_test{$b}} @liste_cles;
- print "\nListe triée\n";
- print Dumper @liste_cles_tries;
- print "Terminé\n";
|
et voila ce que j'ai obtenu :
Liste non triée
$VAR1 = 'aservice4';
$VAR2 = 'gservice2';
$VAR3 = 'bservice6';
$VAR4 = 'lservice3';
$VAR5 = 'zservice1';
$VAR6 = 'oservice5';
Liste triée
$VAR1 = 'bservice6';
$VAR2 = 'aservice4';
$VAR3 = 'lservice3';
$VAR4 = 'gservice2';
$VAR5 = 'oservice5';
$VAR6 = 'zservice1';
Terminé
|
L'élément 5 s'est un peu perdu...
Si quelqu'un a une solution ou une autre idée pour ce problème, je suis preneur...
Merci 
