任何人都知道如何按长度排序?
例如:(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');