在散列数组中按数字和字母顺序对数字进行排序 perl

Question

这是一个非常简单的问题，但我无法解决它。我有一个哈希数组。数据结构如下：

my @unsorted = (
    {
        'key_5' => '14.271 text',
        # ...
    },
    {
        'key_5' => 'text',
        # ...
    },
    {
        'key_5' => '13.271 text',
        # ...
    },
    {
        'key_5' => 'etext',
        # ...
    },
);

如何根据哈希的key_5 对数组进行排序。字符串部分应按字母顺序排序。并且键是number string（格式总是这样），它应该按数字排序（完全忽略字符串部分）。所以输出看起来像：

my @sorted = (
    {
        'key_5' => 'etext',
        # ...
    },
    {
        'key_5' => 'text',
        # ...
    },
    {
        'key_5' => '13.271 text',
        # ...
    },
    {
        'key_5' => '14.271 text',
        # ...
    },
);

因此，数组元素根据散列元素的key_5 进行排序。

重要提示：不能使用本机 perl 安装未附带的任何 perl 软件包。使用 perl 5.18

Answer 1

使用Sort::Key::Natural:

use Sort::Key::Natural qw( natkeysort );

my @sorted = natkeysort { $_->{key_5} } @unsorted;

以上内容从您的输入中产生以下内容：

[
    {
        'key_5' => '13.271 text'
        # ...
    },
    {
        'key_5' => '14.271 text'
        # ...
    },
    {
        'key_5' => 'etext'
        # ...
    },
    {
        'key_5' => 'text'
        # ...
    },
]

如果这还不够好，您可以使用以下方法：

use Sort::Key::Multi qw( unskeysort );   # uns = (u)nsigned int, (n)umber, (s)tring

my @sorted =
   unskeysort {
      $_->{key_5} =~ /^([0-9.]+)\s+(.*)/s
         ? ( 1, $1, $2 )
         : ( 0, 0, $_->{key_5} )
   }
      @unsorted;