je ferais un fonction sort dans ce genre là:
Code :
- sub gregSort {
- my $maxA = 0;
- my $maxB = 0;
- foreach (keys %$a){
- $maxA = $#{$$a{$_}} if $maxA < $#{$$a{$_}};
- }
- foreach (keys %$b){
- $maxB = $#{$$b{$_}} if $maxB < $#{$$b{$_}};
- }
- return $maxA<=>$maxB;
- }
|
Et ensuite tu n'as plus qu'a faire
Code :
- my @retour = sort gregSort @$ptrTableau;
|
Message édité par anapajari le 07-12-2006 à 14:03:32