searayman searayman - 2 months ago 7
Perl Question

Sort Perl hash from largest to smallest

I am looking at an example found here:

And it gives this code to sort a hash based on each key's value:

# Using <=> instead of cmp because of the numbers
foreach my $fruit (sort {$data{$a} <=> $data{$b}} keys %data) {
print $fruit . ": " . $data{$fruit} . "\n";

This code I do not fully understand, but when I experiment with it, it sorts from lowest to highest. How can I flip it to sort from highest to lowest?


Swap $a and $b:

foreach my $fruit (sort {$data{$b} <=> $data{$a}} keys %data) {