Perl:哈希 - 按值排序并获取密钥

Question

是否有一些perl"魔法"迭代通过值排序的哈希值,但在迭代中获取密钥？

按X排序并获得X很容易(键,值) - 以及按键排序并获取值.

谢谢!

Answer 1

my %hash = ( one => 'a', two => 'b', three => 'c', four => 'd' );
for my $k ( sort { $hash{$a} cmp $hash{$b} } keys %hash ) {
    print "$k: $hash{$k}\n";
}
__END__
one: a
two: b
three: c
four: d