排序Perl的哈希從最大到最小

Question

我在看一個例子這裏找到：http://perlmeme.org/tutorials/sort_function.html

，它給這個代碼進行排序基於每個鍵的值的哈希：

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

此代碼我做不完全理解，但是當我嘗試它時，它從最低到最高排序。我怎樣才能翻轉它從最高到最低排序？

Answer 1

交換$a和$b：

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

Answer 2

只需使用reverse sort代替sort。

foreach my $fruit (reverse sort keys %data) { ...