Perl中的递归排序

发布时间：2020-12-15 21:41:36 所属栏目：大数据来源：网络整理

导读：我有一个包含与数据库下标对应的键的哈希,但数据库可以有多维记录,因此键可以是单个下标,也可以是下标列表. 我需要找到一种方法来对这些记录进行排序,以便我可以按逻辑顺序打印它们. 例： my $data = { '1,1,1' = 'data1','1,2' = 'data2',3' = 'stuff','2,1

我有一个包含与数据库下标对应的键的哈希,但数据库可以有多维记录,因此键可以是单个下标,也可以是下标列表.

我需要找到一种方法来对这些记录进行排序,以便我可以按逻辑顺序打印它们.

例：

my $data = {
    '1,1,1' => 'data1','1,2'   => 'data2',3' => 'stuff','2,1' => 'data3',2' => 'data4',3' => 'data blah',2,2' => 'datawk2n','3,2' => 'more',};

# Should print the keys in the properly sorted order
print join "n",sort some_function keys %$data;

sub some_function {
    # Do some sorting magikz
}

我希望它首先按最左边的下标排序.如果最左边的值相同,我想移动到下一个值并进行比较.如果那些是相同的,我想继续下一个…依此类推……直到所有可能性都用完为止.

这很可能涉及一些递归,但我无法弄清楚如何使用那些花哨的$a和$b变量进行递归.

我可以在some_function中放入什么来获得以下输出？

1,1
1,3
1,2
2,1
2,3
2,2
3,2

解决方法

以下是最快的解决方案(到目前为止！)：

my @sorted_keys =
   map { join ',',unpack 'N*',$_ }
   sort
   map { pack 'N*',split /,/,$_ }
   keys(%$data);

如果你想要更简单,更快速的东西,你可以使用“自然排序”.

> Sort::Key::Natural

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

my @sorted_keys = natsort(keys(%$data));

> Sort::Naturally

use Sort::Naturally qw( nsort );

my @sorted_keys = nsort(keys(%$data));

基准：

Rate   SN  SKN  grt
SN   3769/s   -- -40% -88%
SKN  6300/s  67%   -- -79%
grt 30362/s 705% 382%   --

基准代码：

use strict;
use warnings;

use Benchmark          qw( cmpthese );
use List::Util         qw( shuffle );
use Sort::Key::Natural qw( );
use Sort::Naturally    qw( );

my @keys =
   shuffle
      split ' ','1 1,0 1,1 1,3 1,2 2,1 2,3 2,2 3,2 10,1';

sub grt {
   my @sorted_keys =
      map { join ',$_ }
      sort
      map { pack 'N*',$_ }
      @keys;
}

sub SKN { my @sorted_keys = Sort::Key::Natural::natsort(@keys); }

sub SN { my @sorted_keys = Sort::Naturally::nsort(@keys); }

cmpthese(-3,{
   grt => &;grt,SKN => &;SKN,SN  => &;SN,});

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!