Rick wrote:
should this not work?
Based upon the code presented, it looks like the code it correct.
I am finding out that Length is *NOT* being sorted correctly numerically...
Of course we don't know the data stored in %in_array and %in_array_c so it is hard to say why it is not working the way you want it.
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"; } } } }
John -- Those people who think they know everything are a great annoyance to those of us who do. -- Isaac Asimov -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected] http://learn.perl.org/
