perl - 在 perl 中基于散列中的值进行排序的简单方法

Question

通常根据键排序然后迭代哈希可以如下完成:

for $k (sort (keys %h)) {
  print $k, $h{$k};
}

但是如何根据值进行排序，然后遍历散列呢？我可以考虑通过交换键值对来创建一个新的散列。但是有没有更聪明的方法来做到这一点？

非常感谢。

Answer 1

这按值而不是键对%age散列进行排序

@eldest = sort { $age{$b} <=> $age{$a} } keys %age;

这会根据值进行排序。有关详细信息，请参阅 Perl 文档:

http://perldoc.perl.org/functions/sort.html