标签:style each 实现 print col %s 数字类型 size 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\n"; # cc,1,ee bb,12,cc ab,33,dd
标签:style each 实现 print col %s 数字类型 size perl
原文地址:https://www.cnblogs.com/junyongwang/p/9412982.html