Question

给出以下哈希：

%errors = (
    "2013-W9 -> 2013-W12" => 1,
    "2013-W5 -> 2013-W8" => 1,
    "2013-W13 -> 2013-W15" => 1
)

我正在尝试这样排序（所以我可以在foreach循环中使用它）：

%errors = (
    "2013-W5 -> 2013-W8" => 1,
    "2013-W9 -> 2013-W12" => 1,
    "2013-W13 -> 2013-W15" => 1
)

我已尝试sort keys %errors和sort{$a <=> $b) keys %errors但未成功。

如何解决此问题？

Answer 1

在这种情况下，CPAN模块Sort::Naturally似乎正常工作：

use Sort::Naturally qw(nsort);
say $_ for nsort keys %errors;

Answer 2

您想要的排序顺序并不完全清楚，但这种方法很容易扩展：

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

my %errors = (
    "2013-W9 -> 2013-W12" => 1,
    "2013-W5 -> 2013-W8" => 1,
    "2013-W13 -> 2013-W15" => 1
);

my @sorted_keys = map { $_->[0] }
  sort { $a->[1] <=> $b->[1] }
  map  { [ $_, /W(\d+)/ ] } keys %errors;

say $_ for @sorted_keys;

Answer 3

在 The Alphanum Algorithm ，有一个通用的字符串排序例程，它将数字子字符串作为数字进行比较，以包括Perl在内的多种语言实现。

Answer 4

键将按升序排序yyyy-Wx;首先比较yyyy和x数字，

my @sorted_keys = map $_->[0],
  sort {
    $a->[1] <=> $b->[1]
    ||
    $a->[2] <=> $b->[2]
  }
  map [ $_, /(\d+)/g ],
  keys %errors;

Answer 5

我有类似的情况。我用以下方式解决了我的问题：

你试过

sort keys %errors

和

sort{$a <=> $b) keys %errors

尝试几乎相似的事情，但有一点不同：

代码：

my %errors = (
    "2013-W9 -> 2013-W12" => 1,
    "2013-W5 -> 2013-W8" => 1,
    "2013-W13 -> 2013-W15" => 1);

foreach my $val(sort {my ($anum) = ($a =~ /\d+-\w(\d+)$/);  my ($bnum) = ($b =~ /\d+-\w(\d+)$/);  $anum <=> $bnum} keys %error
{
    print "$val\n";
}

在上面的示例中，我仅打印了密钥。

<强>输出：

2013-W5 -> 2013-W8
2013-W9 -> 2013-W12
2013-W13 -> 2013-W15

在Perl中排序字母数字哈希键？

5 个答案:

代码：