sort multiple hash reference by value

[Rick]

should this not work?
I am finding out that Length is *NOT* being sorted correctly numerically...


for my $d ( sort { $in_array{$b} <=> $in_array{$a} }  keys %in_array ){
      printf "SERVER:%-20s %-20s\n",$d,$in_array{$d};

      for my $key30 (  keys %{ $in_array_c{$d} }  ) {
         for my $key20 (  keys %{ $in_array_c{$d}{$key30} }  ) {
            for my $key ( sort { $in_array_c{$d}{$key30}{$key20}{$b} 
<=> $in_array_c{$d}{$key30}{$key20}{$a} } keys %{ 
$in_array_c{$d}{$key30}{$key20} }  ) {
                my $str = substr( ( (split(/_/,$key))[2]),0,12);
                print "\tLENGTH: $in_array_c{$d}{$key30}{$key20}{$key} \n";
            }
         }
      }
}

--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/