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