如何自然地对哈希键进行排序？

Question

我有一个 Perl 哈希，其键以数字开头或为数字。

如果我使用，

foreach my $key (sort keys %hash) {
    print $hash{$key} . "\n";
}

列表可能会显示为，

0
0001
1000
203
23

而不是

0
0001
23
203
1000

Answer 1

foreach my $key (sort { $a <=> $b} keys %hash) {
    print $hash{$key} . "\n";
}

排序操作采用可选的比较“子例程”（或者作为代码块，就像我在这里所做的那样，或者作为子例程的名称）。 我提供了一个内联比较，使用内置数字比较运算符“<=>”将键视为数字。

Answer 2

Paul 的答案对于数字来说是正确的，但是如果您想更进一步，像人类一样对混合单词和数字进行排序，那么 cmp 和 <=> 都不会。 例如，

  9x
  14
  foo
  fooa
  foolio
  Foolio
  foo12
  foo12a
  Foo12a
  foo12z
  foo13a

Sort::Naturally 可以解决这个问题，提供 nsort 和 ncmp 例程。

Answer 3

您的第一个问题是循环体（这里似乎没有其他答案指出）。

foreach my $key ( sort keys %hash ) {
    print $hash{$key} . "\n";
}

我们不知道 %hash 的键是什么。 我们只知道它们在循环内以 $key 的形式按照词汇顺序传递给您。 然后，您可以使用密钥访问哈希的内容，并打印每个条目。

散列的值不会按排序顺序出现，因为您是按键排序的。

您是否想按排序顺序输出值，请考虑以下循环：

foreach my $value ( sort values(%hash) ) {
    printf( "%s\n", $value );
}

此循环确实按照您观察到的顺序打印值：

0
0001
1000
203
23

要按数字对它们进行排序，请使用

foreach my $value ( sort { $a <=> $b } values(%hash) ) {
    printf( "%s\n", $value );
}

这会产生

0
0001
23
203
1000

您想要的结果。

有关详细信息，请参阅sort 函数的 Perl 手册还有更多的例子。

Answer 4

$key (sort { $a <=> $b} keys %hash) 

就可以了

或者降序排序：

$key (sort { $b <=> $a} keys %hash)

或者甚至

$key (sort { $a <=> $b} values %hash)
$key (sort { $b <=> $a} values %hash)