Trie table de hash

Bonjour,

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

Code:

---

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:

---

1 2 3

ca 10 cb 1 za 5

---

J'aimerai maintenant les trier par valeur :

Code:

---

1 2 3

cb 1 za 5 ca 10

---

Comment cela est-il possible ?

Merci d'avance.

Bonsoir,

Voici comment tu peux faire :

Code:

---

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

;)

Tu remplaces la fonction keys par la fonction values.

example:

Code:

---

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:

---

1 2 3 4 5

0 1 1 2 2 3 3 4 4 12

---

EDIT: grillé par Brice. :mouarf:

Citation:

---

Envoyé par brice45

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.

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

J'ai 2 tables de hachages :

h1 :

Code:

---

1 2 3 4

u1 0 u2 1 u3 2 ...

---

h2 :

Code:

---

1 2 3 4

u1 15 u2 18 u3 11 ...

---

et j'aimerai afficher :

Code:

---

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:

---

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.

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:

---

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:

---

1 2 3 4 5

jan fev mar avr dec

---

Merci pour l'opérateur "spaceship"

Citation:

---

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

---