perl 實現字串中數字排序

標籤：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

 

perl 實現字串中數字排序