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

Question

例如，数字格式为:

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

Answer 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;

在 pack模板，您可以更改C至n或 N . C最多允许 255 个数字。n最多允许 65,535 个数字。 N允许数量高达 40 亿。