Question

我有一个散列，其中键是字符串，值是一位数字;这是哈希的一部分：

      'f92a0d43-a230-4bfd-b580-9eac5e0ce6cf' => 7,
      '26c4b622-969f-4861-bbab-dd506ea4b00a' => 1,
      'afb1f925-4109-4b1d-967f-3958106e0bc3' => 3,
      'a099a6dc-0c66-4683-94c3-29d6ef6947fd' => 1,
      'e71c4860-224d-4b8d-ae9e-4700e9e65a97' => 2,

我希望按降序值的顺序打印键。因此，对于那里列出的切片，输出将是：

       'f92a0d43-a230-4bfd-b580-9eac5e0ce6cf' => 7
       'afb1f925-4109-4b1d-967f-3958106e0bc3' => 3
       'e71c4860-224d-4b8d-ae9e-4700e9e65a97' => 2
       '26c4b622-969f-4861-bbab-dd506ea4b00a' => 1
       'a099a6dc-0c66-4683-94c3-29d6ef6947fd' => 1

具有相同值的键的顺序无关紧要。这个问题的答案： In Perl, how can I print the key corresponding to the maximum value in a hash? 建议使用sort函数;我有：

  my @values = sort { $b <=> $a } values %ID_hash;

我遇到的麻烦实际上是按顺序打印按键。

我试过了：

    foreach(@values) {
        my $cur = $_;
        print "$ID_hash{$cur}\t$cur\n";
    }

哪个失败是因为我提供的是值而不是键。

我知道我总是可以将键/值对打印为制表符分隔文件，并使用Unix版本的排序，但我确信有一种方法可以使用Perl。任何帮助将不胜感激。

Answer 1

按哈希值中的值对键进行排序，然后使用排序键进行打印。

for my $key ( sort { $ID_hash{$b} <=> $ID_hash{$a} } keys %ID_hash ) {
    print join( "\t", $key, $ID_hash{$key} ), "\n";
}

这个等价物可能会更清楚一点：

my @sorted_keys = sort { $ID_hash{$b} <=> $ID_hash{$a} } keys %ID_hash ;

print "$_\t$ID_hash{$_}\n" for @sorted_keys;

在Perl中，如何按其（数值）值的顺序打印哈希键？

1 个答案: