Bonjour.. (enfin rebonjour pour ceux qui ont lu le message precedent )

Je cherche a trier par valeur un hash de hash.
Pour l instant j ai trouve qu une solution intermediaire ou j utilise qu a moitie la possibilite de tirer de perl

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
foreach $i_clust1 (keys %interClusterScore)
			{
				my $bestIClust2 = -1;
				#find the best score for i_clust1
				foreach $i_clust2 (sort { $interClusterScore{$i_clust1}{$b} <=> $interClusterScore{$i_clust1}{$a} } keys %{$interClusterScore{$i_clust1}})
				{
					$bestIClust2 = $i_clust2;
					last;
				}
				my $scoreClusts = $interClusterScore{$i_clust1}{$bestIClust2};
 
				if ($scoreClusts > $maxSum)
				{
					$indexClust1 = $i_clust1;
					$indexClust2 = $bestIClust2;
					$maxSum = $scoreClusts;
				}
			}
Quelqu un aurait une meilleure idee?