在perl中使用格式x.x.x.x对数字进行排序

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

导读：比如说数字是格式的： 1.1.101.1.10.11.1.10.21.1.111.1.121.1.131.1.13.11.1.31.1.4 而我正在寻找的输出是： 1.1.31.1.41.1.101.1.10.11.1.10.21.1.111.1.121.1.131.1.13.1 解决方法 use Sort::Key::Natural qw( natsort );my @sorted = natsort @data; 或(

比如说数字是格式的：

1.1.10
1.1.10.1
1.1.10.2
1.1.11
1.1.12
1.1.13
1.1.13.1
1.1.3
1.1.4

而我正在寻找的输出是：

1.1.3
1.1.4
1.1.10
1.1.10.1
1.1.10.2
1.1.11
1.1.12
1.1.13
1.1.13.1

解决方法

use Sort::Key::Natural qw( natsort );
my @sorted = natsort @data;

或(没有模块)

my @sorted =
   map $_->[0],sort { $a->[1] cmp $b->[1] }
   map [ $_,pack('C*',split /./) ],@data;

或(没有模块,速度更快,但需要数组而不是输入列表)

my @sorted =
   map $data[unpack('N',$_)],sort
   map pack('NC*',$_,split /./,$data[$_]),0..$#data;

在包模板中,您可以将C更改为n或N. C允许最多255个数字.n允许数字最多为65,535. N允许数量高达40亿.

（编辑：李大同）

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