Perl技术问询：如何按哈希值排序并在迭代中获取键

当然有办法啦！其实Perl里不需要什么特殊的"魔法"，只要利用好sort函数的自定义排序能力就能轻松实现。你提到的按键排序取值、或者直接排序键/值本身都很简单，那按值排序同时拿键的思路其实也类似，核心就是让排序的依据对应哈希的值就行。

举个实际的例子，假设我们有这样一个存储水果数量的哈希：

my %fruit_counts = (
    apple => 5,
    banana => 2,
    cherry => 8,
    date => 3,
);

方法一：先把键值对转为数组再排序 #

我们可以把哈希的键值对打包成数组元素（每个元素是包含键和值的数组引用），然后直接按值排序这个数组，迭代时就能同时拿到键和值：

# 将哈希转为 [键, 值] 的数组引用集合，再按值从小到大排序
my @sorted_pairs = sort { $a->[1] <=> $b->[1] } %fruit_counts;

foreach my $pair (@sorted_pairs) {
    my ($fruit, $count) = @$pair;
    print "$fruit 有 $count 个\n";
}

方法二：直接对键排序，依据是对应的值 #

这种写法更简洁，也是Perl开发者常用的技巧：我们还是对哈希的键进行排序，但排序时比较的是每个键对应的值，这样迭代排序后的键时，自然就能通过键获取到对应的值了：

# 按键排序，但排序规则是比较键对应的值（<=> 用于数字排序）
foreach my $fruit (sort { $fruit_counts{$a} <=> $fruit_counts{$b} } keys %fruit_counts) {
    print "$fruit 有 $fruit_counts{$fruit} 个\n";
}

拓展：字符串值的排序 #

如果你的哈希值是字符串，只需要把数字比较符<=>换成字符串比较符cmp就行。比如按值的字典序排序：

my %color_codes = (
    red => "#ff0000",
    green => "#00ff00",
    blue => "#0000ff",
);

foreach my $color (sort { $color_codes{$a} cmp $color_codes{$b} } keys %color_codes) {
    print "$color: $color_codes{$color}\n";
}

说白了，这就是Perlsort函数的灵活之处——你可以自定义任何排序逻辑，只要在sort的块里返回两个元素的比较结果就行，完全不需要什么"魔法"~

内容的提问来源于stack exchange，提问作者chris01