Trier un hash de hash

Version imprimable

29/01/2009, 18h18
Anium

Trier un hash de hash

Bonjour,

J'ai un hash H1 contenant des hash H2i :evilred:. Je souhaite le parcourir en triant le H2i par ordre décroissant selon la valeur.

Comment procéder ?

Merci d'avance.
30/01/2009, 08h09
Jasmine80

Si tu veux que ton tableau ait un ordre précis, tu dois utiliser un tableau indexé. Si tu veux simplement afficher tes valeurs selon un ordre décroissant, tu peux utiliser la fonction sort {$b<=>$a} values.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#!/usr/bin/perl/
 
use strict;
use warnings;
 
 
my %H1 = (
	c1 => {
		k1 => 5,
		k2 => 1,
		k3 => 3,
		k4 => 4,
	},
	c2 => {
		k5 => 6,
		k6 => 8,
		k7 => 3,
		k8 => 1,
	},		
);
 
foreach my $c (keys %H1){
 
	print $c."\n";
 
	foreach my $v (sort {$b <=> $a} values %{$H1{$c}}){
		print "\t".$v."\n";
	}
}

Code:

Merci pour ces réponses, j'ai appliqué le code de Jasmine80 mais il m'affiche l'adresse d'un hash. Peut être que mon ajout n'est pas correcte.
Voila comment j'ajoute :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
	%liste = {};
	for my $req_no (sort keys %$requetes) {		
		for my $mot (keys %{$requetes->{$req_no}}){
			if(exists $index->{$mot}){
				# Somme (poids du mot dans la requete * poids du mot dans le documents) 
				for my $doc ( keys %{$index->{$mot}} ) {
					if(exists $liste->{$req_no}->{$doc}){
						$liste->{$req_no}->{$doc} += $index->{$mot}->{$doc} * $requetes->{$req_no}->{$mot};
					}
					else{
						$liste->{$req_no}->{$doc} = $index->{$mot}->{$doc} * $requetes->{$req_no}->{$mot};
					}
				}
			}
		}
	}