perl高級(jí)排序，<=>操作符，飛船操作符
更新時(shí)間：2013年02月09日 22:11:14 作者：
perl高級(jí)排序的關(guān)鍵在于要指定排序的方式，使用的操作符是spaceship operator（<=>)
按照要求進(jìn)行的排序：
復(fù)制代碼 代碼如下:
#!/bin/perl
@number=qw/5 10 15 3 2 4 8 6 /;
my @descending =sort {$a<=>$b} @number;#這里$a=5,$b=10,因?yàn)?a在前，perl得到的結(jié)果是小數(shù)在前，也就是升序排列
print "@descending\n";
結(jié)果如下：
F:\>perl\a.pl
2 3 4 5 6 8 10 15
F:\>
如果要降序排列，只要把程序的第二行變成sort{$b<=>$a}就可以了：
復(fù)制代碼 代碼如下:
#!/bin/perl
@number=qw/5 10 15 3 2 4 8 6 /;
my @descending =sort {$b<=>$a} @number;
print "@descending\n";
結(jié)果如下：
F:\>perl\a.pl
15 10 8 6 5 4 3 2
F:\>
相關(guān)文章
Perl的經(jīng)典用法分享，學(xué)習(xí)perl的朋友可以參考下2013-02-02
perl腳本實(shí)現(xiàn)限制ssh最大登錄次數(shù)（支持白名單）
這篇文章主要介紹了perl腳本實(shí)現(xiàn)限制ssh最大登錄次數(shù),腳本支持支持白名單設(shè)置,例如root可以不限制登錄次數(shù),需要的朋友可以參考下2014-07-07
Windows和Linux系統(tǒng)下perl連接SQL Server數(shù)據(jù)庫(kù)的方法
這篇文章主要介紹了Windows和Linux系統(tǒng)下perl連接SQL Server數(shù)據(jù)庫(kù)的方法,本文詳細(xì)的講解了Windows和Linux系統(tǒng)中perl如何連接Microsoft SQL Server數(shù)據(jù)庫(kù),需要的朋友可以參考下2014-10-10
學(xué)習(xí)perl的unless控制結(jié)構(gòu)
在perl的if控制結(jié)構(gòu)中，只有當(dāng)條件表達(dá)式為真時(shí)才執(zhí)行某塊代碼。如果想讓程序塊在條件為假時(shí)才執(zhí)行，此時(shí)可以把if改成unless2013-02-02
這篇文章主要介紹了Perl中的單行注釋和多行注釋語(yǔ)法,本文還同時(shí)講解了其它常見(jiàn)編程語(yǔ)言的單行注釋和多行注釋語(yǔ)法,需要的朋友可以參考下2015-06-06
這篇文章主要介紹了Perl腳本實(shí)現(xiàn)遞歸遍歷目錄下的文件,本文直接給出實(shí)現(xiàn)代碼,代碼中包含明細(xì)注釋,需要的朋友可以參考下2015-04-04
perl 文件操作總結(jié)，需要的朋友可以參考下2013-02-02
Perl 中的use和require，都是用來(lái)加載和引用Perl的模塊，或者是子程序，區(qū)別在于Perl use是在當(dāng)前默認(rèn)的里面去尋找，一旦模塊不在指定的區(qū)域內(nèi)的化，用Perl use是不可以引入的2013-02-02
Perl集群配置管理系統(tǒng)Rex簡(jiǎn)明手冊(cè)
這篇文章主要介紹了Perl集群配置管理系統(tǒng)Rex簡(jiǎn)明手冊(cè),自動(dòng)化運(yùn)維的一個(gè)管理工具,需要的朋友可以參考下2014-06-06
windows安裝perl及komodo IDE的詳細(xì)步驟
這篇文章主要介紹了windows安裝perl及komodo IDE的詳細(xì)步驟,本文通過(guò)圖文并茂的形式給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2020-12-12