ICPSEP Content

54 各种排序(Llama书的第十五章)

sort()是PERL的函数,有三种模式:
@result=sort @array;#等价于sort{$acmp$b}@array;
使用字符位比较排序@array中的变量,结果返回在@result.
@result=sort BLOCK @array; #对于给定的$a$b,{}中的语句block返回-1,0,1
@result=sort{$age{$a}<=>$age{$b}}@array;#通过age排序,如果在@array中的输入是关联数组%age的关键字,这个关联数组保留每个关键字的数值.
@result=sort SUBNAME @array;#使用子程序(被指定为标量变量)已进行排序.
sub backsort {$b<=>$a;) # 整行数.
@result=sort backsort @array;#以数字降序排序.