Perl – Sort associative array by value

By admin on July 8, 2009 in Misc

Here’s an alpha sort of the values of the associative array named “myarray”:

foreach my $key (sort {$myarray{$a} cmp $myarray{$b}} keys %myarray) {
        print "$key : " . $myarray{$key} . "\n";
};

foreach my $key (sort {$myarray{$a} cmp $myarray{$b}} keys %myarray) {

print "$key : " . $myarray{$key} . "\n";

};

And here’s the same sort numerically:

foreach my $key (sort {$myarray{$a} <=> $myarray{$b}} keys %myarray) {
        print "$key : " . $myarray{$key} . "\n";
};

foreach my $key (sort {$myarray{$a} <=> $myarray{$b}} keys %myarray) {

print "$key : " . $myarray{$key} . "\n";

};

And if you want numeric descending:

foreach my $key (sort {$myarray{$b} <=> $myarray{$a}} keys %myarray) {
        print "$key : " . $myarray{$key} . "\n";
};

foreach my $key (sort {$myarray{$b} <=> $myarray{$a}} keys %myarray) {

print "$key : " . $myarray{$key} . "\n";

};

Of course don’t forget how to sort keys:

foreach my $key (sort keys %myarray) {
        print "$key : " . $myarray{$key} . "\n";
};

foreach my $key (sort keys %myarray) {

print "$key : " . $myarray{$key} . "\n";

};

And a numerical sort of keys:

foreach my $key (sort {$a<=>$b} keys %myarray) {
        print "$key : " . $myarray{$key} . "\n";
};

foreach my $key (sort {$a<=>$b} keys %myarray) {

print "$key : " . $myarray{$key} . "\n";

};