《perl sort函数用法总结和使用实例》由会员分享，可在线阅读，更多相关《perl sort函数用法总结和使用实例（12页珍藏版）》请在金锄头文库上搜索。
1、我真正系统地接触和学习党的基本知识是在这次中级党校的培训班上。通过学习，了解了党的发展历程，对党的性质、宗旨、任务等基本知识有了进一步的了解Perl Sort函数用法总结和使用实例一） sort函数用法sort LISTsort BLOCK LISTsort SUBNAME LISTsort的用法有如上3种形式。它对LIST进行排序，并返回排序后的列表。假如忽略了SUBNAME或BLOCK，sort按标准字串比较顺序来进行（例如ASCII顺序）。如果指定了SUBNAME，它实际上是个子函数的名字，该子函数对比2个列表元素，并返回一个小于，等于，或大于0的整数，这依赖于元素以何种顺序来sort（
2、升序，恒等，或降序）。也可提供一个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 arra
3、y), 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顺序进行
4、sort的话，结果可能与你想的不同：代码如下:print join( , sort 1 . 11), n;1 10 11 2 3 4 5 6 7 8 92.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 sortedn;打印结果是：复制代码 代码如下:A ARP arp ascap ASCII atlarge at_
5、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还是
6、sort，都要保护这个临时变量$_（sort里是$a和$b）的值，不要去修改它在该code里，在对$a或$b进行替换操作s/W_+/g前，先将它们重新赋值给$da和$db，这样替换操作就不会修改原始元素哦。3. 以降序sort降序sort比较简单，把cmp或前后的操作数调换下位置就可以了。复制代码 代码如下:sort $b $a array;或者改变中间的块或子函数的返回值的标记：复制代码 代码如下:sort -($a $b) array;或使用reverse函数（这有点低效，但也许易读点）：复制代码 代码如下:reverse sort $a $b array;4. 使用多个keys进行sor
7、t要以多个keys来sort，将所有以or连接起来的比较操作，放在一个子函数里即可。将主要的比较操作放在前面，次要的放在后面。代码如下:# An array of references to anonymous hashesemployees = ( FIRST = Bill, LAST = Gates,SALARY = , AGE = 45 , FIRST = George, LAST = TesterSALARY = 55000, AGE = 29 , FIRST = Steve, LAST = Ballmer,SALARY = , AGE = 41 FIRST = Sally, LAST
8、 = Developer,SALARY = 55000, AGE = 29 , FIRST = Joe, LAST = Tester,SALARY = 55000, AGE = 29 ,);sub seniority $b-SALARY $a-SALARYor $b-AGE $a-AGEor $a-LAST cmp $b-LASTor $a-FIRST cmp $b-FIRSTranked = sort seniority employees;foreach $emp (ranked) print $emp-SALARY/t$emp-AGE/t$emp-FIRST$emp-LASTn;打印结果
9、是：复制代码 代码如下: 45 Bill Gates 41 Steve Ballmer55000 29 Sally Developer55000 29 George Tester55000 29 Joe Tester上述code看起来很复杂，实际上很容易理解哦。employees数组的元素是匿名hash。匿名hash实际上是个引用，可使用-操作符来访问其值，例如$employees0-SALARY可访问到第一个匿名hash里SALARY对应的值。所以上述各项比较就很清楚了，先比较SALARY的值，再比较AGE的值，再比较LAST的值，最后比较FIRST的值。注意前2项比较是降序的，后2项是升序
10、的，不要搞混了哦。5. sort出新数组代码如下:x = qw(matt elroy jane sally);ranksort $x$a cmp $x$b 0 . $#x = 0 . $#x;print rankn;打印结果是：复制代码 代码如下:2 0 1 3这里是否有点糊涂呀？仔细看就清楚了。0 . $#x是个列表，它的值是x数组的下标，这里就是0 1 2 3。$x$a cmp $x$b 就是将x里的各个元素，按ASCII顺序进行比较。所以sort的结果返回对x的下标进行排序的列表，排序的标准就是该下标对应的x元素的ASCII顺序。还不明白sort返回什么？让我们先打印出x里元素的ASCI
11、I顺序：代码如下:x = qw(matt elroy jane sally);print join ,sort $a cmp $b x;打印结果是：复制代码 代码如下:elroy jane matt sally它们在x里对应的下标是1 2 0 3，所以上述sort返回的结果就是1 2 0 3这个列表了。rank1 2 0 3 = 0 . $#x 只是个简单的数组赋值操作所以rank的结果就是(2 0 1 3)了。6. 按keys对hash进行sort代码如下:%hash = (Donald = Knuth, Alan = Turing, John = Neumann);sorted = map
12、 ($_ = $hash$_) sort keys %hash;foreach $hashref (sorted) ($key, $value) = each %$hashref;print $key = $valuen;打印结果是：复制代码 代码如下:Alan = TuringDonald = KnuthJohn = Neumann上述code不难明白哦。sort keys %hash按%hash的keys的ASCII顺序返回一个列表，然后用map进行计算，注意map这里用了双重里面的 是个匿名hash哦，也就是说map的结果是个匿名hash列表，明白了呀？所以sorted数组里的元素就是各
13、个匿名hash，通过%$hashref进行反引用，就可以访问到它们的key/value值了。7. 按values对hash进行sort代码如下:%hash = ( Elliot = Babbage,Charles = Babbage,Grace = Hopper,Herman = Hollerith);sorted = map ($_ = $hash$_) sort $hash$a cmp $hash$bor $a cmp $b keys %hash;foreach $hashref (sorted) ($key, $value) = each %$hashref;print $key = $valuen;打印结果是：复制代码 代码如下:Charles = BabbageElliot = BabbageHerman = HollerithGrace = Hopper与hash keys不同，我们不能保证hash values的唯一性。假如你仅根据values来sort hash，那么当你增或删其他values时，有着相同value的2个元素的sort顺序可能会改变。为了求得稳定的结果，应该对value进行主sort，对key进行从sort。这里 $hash
