一） sort函數(shù)用法

sort LIST
sort BLOCK LIST
sort SUBNAME LIST

sort的用法有如上3種形式。它對(duì)LIST進(jìn)行排序，并返回排序后的列表。假如忽略了SUBNAME或BLOCK，sort按標(biāo)準(zhǔn)字串比較順序來(lái)進(jìn)行（例如ASCII順序）。如果指定了SUBNAME，它實(shí)際上是個(gè)子函數(shù)的名字，該子函數(shù)對(duì)比2個(gè)列表元素，并返回一個(gè)小于，等于，或大于0的整數(shù)，這依賴(lài)于元素以何種順序來(lái)sort（升序，恒等，或降序）。也可提供一個(gè)BLOCK作為匿名子函數(shù)來(lái)代替SUBNAME，效果是一樣的。

被比較的2個(gè)元素，會(huì)被臨時(shí)賦值給變量$a和$b。它們以引用傳遞，所以不要修改$a或$b。假如使用子函數(shù)，它不能是遞歸函數(shù)。

二） 用法實(shí)例

1. 以數(shù)字順序sort    
代碼如下:
@array = (8, 2, 32, 1, 4, 16);
print join(' ', sort {$a <=> $b} @array), "/n";

打印結(jié)果是：   
代碼如下:1 2 4 8 16 32

與之一樣的是：
代碼如下:sub numerically { $a <=> $b };
print join(' ', sort numerically @array), "/n";

這個(gè)很容易理解哦，它只是按自然數(shù)的順序進(jìn)行sort，偶就不細(xì)講了。

2.1 以ASCII順序(非字典順序)進(jìn)行sort
代碼如下:
@languages = qw(fortran lisp c c++ Perl python java);
print join(' ', sort @languages), "/n";

打印結(jié)果：
代碼如下:Perl c c++ fortran java lisp python

這等同于：
代碼如下:print join(' ', sort { $a cmp $b } @languages), "/n";

按ASCII的順序進(jìn)行排序，也沒(méi)什么說(shuō)的哦。

注意，如果對(duì)數(shù)字按ASCII順序進(jìn)行sort的話，結(jié)果可能與你想的不同：
代碼如下:
print join(' ', sort 1 .. 11), "/n";
1 10 11 2 3 4 5 6 7 8 9

2.2 以字典順序sort
代碼如下:
use locale;
@array = qw(ASCII ascap at_large atlarge A ARP arp);
@sorted = sort { ($da = lc $a) =~ s/[/W_]+//g;
          ($db = lc $b) =~ s/[/W_]+//g;
          $da cmp $db;
          } @array;
print "@sorted/n";

打印結(jié)果是：  
代碼如下:A ARP arp ascap ASCII atlarge at_large

use locale是可選的--它讓code兼容性更好，假如原始數(shù)據(jù)包含國(guó)際字符的話。use locale影響了cmp,lt,le,ge,gt和其他一些函數(shù)的操作屬性--更多細(xì)節(jié)見(jiàn)perllocale的man page。

注意atlarge和at_large的順序在輸出時(shí)顛倒了，盡管它們的sort順序是一樣的（sort中間的子函數(shù)刪掉了at_large中間的下劃線）。這點(diǎn)會(huì)發(fā)生，是因?yàn)樵撌纠\(yùn)行在perl 5.005_02上。在perl版本5.6前，sort函數(shù)不會(huì)保護(hù)有一樣values的keys的先后順序。perl版本5.6和更高的版本，會(huì)保護(hù)這個(gè)順序。

注意哦，不管是map,grep還是sort，都要保護(hù)這個(gè)臨時(shí)變量$_（sort里是$a和$b）的值，不要去修改它