在Perl中按长度排序

发布时间：2020-12-15 23:25:32 所属栏目：大数据来源：网络整理

导读：任何人都知道如何按长度排序？例如：(11,111,122,12,2,13,21,15,211,22,213,2004) 我希望排序的数组是： 11121315111122221222132004 解决方法所需的输出似乎表明您不只是想按数字排序,而是首先按第一个数字排序,然后按长度排序. 您显示的所需输出省略了21

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

例如：(11,111,122,12,2,13,21,15,211,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');

（编辑：李大同）

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