在Perl中按长度排序

任何人都知道如何按长度排序？

例如：(11,111,122,12,2,13,21,15,211,22,213,2004)

我希望排序的数组是：

11
12
13
15
111
122
2
21
22
213
2004

解决方法

所需的输出似乎表明您不只是想按数字排序,而是首先按第一个数字排序,然后按长度排序.

您显示的所需输出省略了211,所以我只是根据我的理解把它放在它所属的位置.

#!/usr/bin/env perl

use strict;
use warnings;

use Test::More;

my @source = (11,2004);
my @desired = (11,2004);

my @sorted =sort {
    substr($a,1) <=> substr($b,1) ||
    length($a) <=> length($b) || 
    $a <=> $b # thanks @ikegami
} @source;

is_deeply(\@sorted,\@desired,'Sorted and desired are the same');