Discussion :

[MoiCoucou]

Bonsoir
j'ai un hash "classique" %groupe qui contient comme clé le nom des membres et comme valeur deux champs : un montant en euro (cotisation) et un tableau contenant des valeurs de versements, de taille quelconque.
Pas de souci pour obtenir toutes les données triées sur le nom des membres.

Code :

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

1
2
3
4
5
6
7
foreach my $name (keys %groupe) {
    	print "<br />Les versements  de $name sont <br />"; 	
    	foreach my $i (0 .. $#{ $groupe{$name}{versement}}){
    		print "$groupe{$name}{versement}[$i], ";    	
    	}
    	print "Montant = $groupe{$name}{montant}<br />"; 
    }

Mais je voudrais trier sur le montant des cotisations. Je sèche...
Quelqu'un aurait il une idée ?
Merci par avance

[Lolo78]

Dans le code que tu montres (d'ailleurs, place entre des balises code, le bouton #, ce sera plus lisible), ti ne trie pas selon le nom. Il faudrait faire quelque chose comme cela:

Code :

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

1
2
3
 
foreach my $name (sort keys %groupe) {
     # ...

Je ne comprends pas bien ce que tu veux trier: les montants versés par les personnes individuelles, pour chaque personne, ou les personnes selon les montants qu'elles ont versés?

Si c'est trier les personnes en fonction des montants des cotisations, quelque chose comme cela (non testé, je n'ai pas Perl sur ma tablette):

Code :

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

1
2
 
my @sorted_persons = sort { $groupe{$a}{montant} <=> $groupe{$b}{montant} } keys %groupe;

ou directement:

Code :

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

1
2
3
 
for my $name ( sort { $groupe{$a}{montant} <=> $groupe{$b}{montant} } keys %groupe) {
    # ...

[Lolo78]

Bon, voilà j'ai testé maintenant à la ligne de commande:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
$ perl -e '
> use strict;
> use warnings;
>
> my %groupe = ( Martin => { montant => 50}, Kevin => {montant => 75 }, Marie => {montant => 45});
>
> for my $name ( sort { $groupe{$a}{montant} <=> $groupe{$b}{montant} } keys %groupe) {
>     print "$name : $groupe{$name}{montant} \n";
> }
> '
Marie : 45
Martin : 50
Kevin : 75

Pour un tri en ordre descendant, il suffit d'intervertir les variables spéciales $a et $b dans le bloc de code du sort:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
$ perl -e '
> use strict;
> use warnings;
>
> my %groupe = ( Martin => { montant => 50}, Kevin => {montant => 75 }, Marie => {montant => 45});
>
> for my $name ( sort { $groupe{$b}{montant} <=> $groupe{$a}{montant} } keys %groupe) {
>     print "$name : $groupe{$name}{montant} \n";
> }
> '
Kevin : 75
Martin : 50
Marie : 45

[MoiCoucou]

Merci pour ces réponses.
C'est la solution vers laquelle je m'étais tourné mais en échangeant (bêtement) $groupe{$a}{montant} avec $groupe{montant}{$a}
Merci