比如说数字是格式的:
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亿.
原文地址:https://www.jb51.cc/Perl/171707.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。