Discussion :

[kimikou]

Bonjour,

Actuellement, je trie ma table de hash par clé :

Code :

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

1
2
3
4
5
6
7
8
9
10
my @keys = sort{$a cmp $b} keys %h;
foreach my $key (@keys)
{
    $value = $h{$key};
 
    #instructions
    #...
 
    print FILE "$key $d";
}

Résultat :

Code :

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

1
2
3
ca 10
cb 1
za 5

J'aimerai maintenant les trier par valeur :

Code :

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

1
2
3
cb 1
za 5
ca 10

Comment cela est-il possible ?

Merci d'avance.

[brice45]

Bonsoir,

Voici comment tu peux faire :

Code :

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

1
2
3
foreach my $value (sort values %hash) {
print "$value \n";
}

Pour avoir un tri correct avant passe toutes tes valeurs sur 3 chiffres.
Ex : 005 pour 5
Pour cela, utilise sprintf

[Lolo78]

Pour avoir un tri correct avant passe toutes tes valeurs sur 3 chiffres.
Ex : 005 pour 5
Pour cela, utilise sprintf

Ou, mieux, utilise l'opérateur "spaceship" (l'opérateur <=> que j'ai utilisé ci-dessus) qui fera un tri numérique.

[kimikou]

Merci mais ma situation est devenu un peu plus "complexe".

J'ai 2 tables de hachages :

h1 :

Code :

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

1
2
3
4
u1 0
u2 1
u3 2
...

h2 :

Code :

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

1
2
3
4
u1 15
u2 18
u3 11
...

et j'aimerai afficher :

Code :

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

1
2
3
4
u3 2 11
u1 0 15
u2 1 18
...

c'est a dire, un tri selon les valeurs de h2.

Code :

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

1
2
3
4
5
6
my @values = sort {$a <=> $b} values %h2;
foreach my $val_h2 (@values) {
# my $key = ?;
#my $val_h1 = ?;
print "$key,$val_h1,$val_h2\n";
}

Merci d'avance.

[Lolo78]

Il suffit de trier les clés selon les valeurs associées du hash selon lequel du veux trier, puis d'imprimer les valeurs des deux hashs pour ces clés.

Exemple de tri des clés selon les valeurs:

Code :

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

1
2
my %h = (jan => 1, dec =>12, fev =>2, avr =>4, mar =>3);
print "$_\n" foreach  sort {$h{$a} <=> $h{$b} } keys %h;

Ce qui imprime:

Code :

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

1
2
3
4
5
jan
fev
mar
avr
dec

[brice45]

Merci pour l'opérateur "spaceship"

Ou, mieux, utilise l'opérateur "spaceship" (l'opérateur <=> que j'ai utilisé ci-dessus) qui fera un tri numérique.

[Lolo78]

Tu remplaces la fonction keys par la fonction values.

example:

Code :

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

1
2
my %h = (jan => 1, dec =>12, fev =>2, avr =>4, mar =>3);
my @v = sort ($a <=> $b)  values %h;

@v contient maintenant:

Code :

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

1
2
3
4
5
0  1
1  2
2  3
3  4
4  12

EDIT: grillé par Brice.