perl-sort.docVIP

简简单单讲sort仙子注：本文档和仙子前面的2篇文档"简简单单讲grep"，"简简单单讲map"，都译自网络，加上仙子自己的解释整理而成。原文档出自：/web/20041123005900//rayco/support/perl_tutor.html文档的Author是位Perl Hacker，曾在Microsoft和T-Mobile工作。要理解他的全部Code并不容易，也许偶讲的也不是很清楚，所以，读者自己也要多动脑筋哦。（一） sort函数sort LISTsort BLOCK LISTsort SUBNAME LISTsort的用法有如上3种形式。它对LIST进行排序，并返回排序后的列表。假如忽略了SUBNAME或BLOCK，sort按标准字串比较顺序来进行（例如ASCII顺序）。如果指定了SUBNAME，它实际上是个子函数的名字，该子函数对比2个列表元素，并返回一个小于，等于，或大于0的整数，这依赖于元素以何种顺序来sort（升序，恒等，或降序）。也可提供一个BLOCK作为匿名子函数来代替SUBNAME，效果是一样的。被比较的2个元素，会被临时赋值给变量$a和$b。它们以引用传递，所以不要修改$a或$b。假如使用子函数，它不能是递归函数。（二） 用法示例1. 以数字顺序sort@array = (8, 2, 32, 1, 4, 16);print join(' ', sort { $a <=>; $b } @array), "\n";打印结果是：1 2 4 8 16 32与之一样的是：sub numerically { $a <=>; $b };print join(' ', sort numerically @array), "\n";这个很容易理解哦，它只是按自然数的顺序进行sort，偶就不细讲了。2.1 以ASCII顺序（非字典顺序）进行sort@languages = qw(fortran lisp c c++ Perl python java);print join(' ', sort @languages), "\n";打印结果：Perl c c++ fortran java lisp python这等同于：print join(' ', sort { $a cmp $b } @languages), "\n";按ASCII的顺序进行排序，也没什么说的哦。注意，如果对数字按ASCII顺序进行sort的话，结果可能与你想的不同：print join(' ', sort 1 .. 11), "\n";1 10 11 2 3 4 5 6 7 8 92.2 以字典顺序sortuse 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";打印结果是：A ARP arp ascap ASCII atlarge at_largeuse locale是可选的--它让code兼容性更好，假如原始数据包含国际字符的话。use locale影响了cmp,lt,le,ge,gt和其他一些函数的操作属性--更多细节见perllocale的man page。注意atlarge和at_large的顺序在输出时颠倒了，尽管它们的sort顺序是一样的（sort中间的子函数删掉了at_large中间的下划线）。这点会发生，是因为该示例运行在perl 5.005_02上。在perl版本5.6前，sort函数不会保护有一样values的keys的先后顺序。perl版本5.6和更高的版本，会保护这个顺序。注意哦，不管是map,grep还是sort，都要保护这个临时变量$_（sort里是$a和$b）的值，不要去修改它。在该code里，在对$a或$b进行替换操作s/[\W_]+//g前，先将它们重新赋值给$da和$db，这样替换操作就不会修改原始元素哦。3. 以降序sort降序sort比较简单，把cmp或<=>;前后的操作数调换下位置就可以了。sort { $b <=>; $a } @array;或者改变中间的块或子函数的返回值的标记：sort { -($a <=>; $b) } @array;或使