perl 实现字符串中数字排序

Posted junyongwang

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了perl 实现字符串中数字排序相关的知识,希望对你有一定的参考价值。

 数值类型数组排序使用:

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 "@array
";  # cc,1,ee bb,12,cc ab,33,dd

 

以上是关于perl 实现字符串中数字排序的主要内容,如果未能解决你的问题,请参考以下文章