Need help to sort hash of hashes by value in perl

newbee21 · 12-01-2010, 04:46 PM

Hi All,

I have a hash of hashes and I need to sort this by value and write to a javascript array file..

Currently I am using the following

foreach my $key(sort { keys %{$trans{$a}} <=> keys %{$trans{$b}}} keys %transmission)
{
foreach my $role(sort {$trans{$key}{$a} cmp $trans{$key}{$b}} keys %{$trans{$key}})
{
$transrecord.="if(srchtranslist['$key'] ==null){srchtranslist['$key']=new Object();srchtranslist['$key']['$role']=\"$trans{$key}{$role}\";}else{srchtranslist['$key']['$role']=\"$trans{$key}{$role}\";}\n";
}
}
and the sorting isn't working.

Please help

Newbee

tshikose · 12-21-2010, 10:04 AM

Hi,

Can you give us the output of your $trans variable from the code below

Quote:

use Data:

ump qw(dump);

dump($trans);

Tinkster · 12-21-2010, 07:03 PM

Quote:

Originally Posted by tshikose

Hi,

Can you give us the output of your $trans variable from the code below

It's

Code:

use Data::Dumper qw( dump );

Cheers,
Tink