在Perl中对字母数字哈希键进行排序? [英] Sorting alphanumeric hash keys in Perl?

问题描述

给出以下哈希值:

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

我正在尝试像这样对其进行排序(以便可以在foreach循环中使用它):

I'm trying to sort it like this (so I can use it in a foreach loop):

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

我尝试sort keys %errors和sort{$a <=> $b) keys %errors都没有成功.

如何解决此问题?

推荐答案

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

It seems that in this case the CPAN module Sort::Naturally works fine:

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

这篇关于在Perl中对字母数字哈希键进行排序?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！