perl 实现字符串中数字排序

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

导读：?数值类型数组排序使用： sort { $a = $b } @array ; # 升序排列 sort { $b = $a } @array ; # 降序排列字符串类型数组排序使用： sort { $a cmp $b } @array ; # 升序排列 sort { $b cmp $a } @array ; # 降序排列字符串比较忽略大小写使用： sort { lc (

?数值类型数组排序使用：

sort { $a <=> $b } @array;  #升序排列
sort { $b <=> $a } @array;  #降序排列

字符串类型数组排序使用：

sort { $a cmp $b } @array;  #升序排列
sort { $b cmp $a } @array;  #降序排列

字符串比较忽略大小写使用：

sort { lc($a) cmp lc($b) } @array;

字符串-数字类型数组排序使用：

@list = ("ab,33,dd","cc,1,ee","bb,12,cc"); foreach $line (@list){ @sss = split(/,/,$line); $save{$sss[1]} = $line; } my @key =sort {$a <=> $b} keys %save; for my $i(@key){ push @array,"$save{$i}"; } print "@arrayn";  # cc,ee bb,cc ab,dd

（编辑：李大同）

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