perl 实现字符串中数字排序

Posted 2020-12-27 junyongwang

 数值类型数组排序使用：

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