只有一行的Perl程序第1/3頁(yè)

1 line perl
今天來(lái)說(shuō)說(shuō)perl，只有一行的perl程序。
各種編程語(yǔ)言中perl是以變態(tài)的古靈精怪而聞名的，比如我，就經(jīng)常寫(xiě)出自己都看不懂的perl程序來(lái)。
比如這篇文檔中的程序，雖然短小，估計(jì)一個(gè)星期之后我看這就要頭暈了。但這絲毫不影響perl作為 一個(gè)功能強(qiáng)大的系統(tǒng)管理工具和系統(tǒng)控制語(yǔ)言的存在和推廣，而且靈活性恰恰是它最大的優(yōu)勢(shì)，你可以
這樣寫(xiě)，也可以那樣寫(xiě)，“或者，絕招同途異路。”
1. hello world!
===========================================================
還是從最經(jīng)典的 hello,world! 開(kāi)始......
##
# perl -e 'print "hello,world!\n"'
hello,world!
##
完全不出意料，他沒(méi)有任何歧異的終于我們?cè)敢獾妮敵隽?hello,world!"，自然得就像我么用echo或
printf()一樣。
這個(gè)程序按照傳統(tǒng)形態(tài)展開(kāi)的話(huà)是這樣：
==
#!/usr/bin/perl
print "hello,world!\n";
==
我們?cè)诿钚猩鲜褂昧藀erl 的-e參數(shù)，這將使perl把-e之后直接跟著的字符串當(dāng)作perl的程序自動(dòng)內(nèi)置
展開(kāi)執(zhí)行，免去了我們用vi或cat重寫(xiě)文件之苦。
-e參數(shù)的功能，就是自動(dòng)把之后的字符串作為程序主題執(zhí)行，再之后的參數(shù)將作為perl腳本的命令行
參數(shù)($ARGC 和 @ARGV)傳遞給程序語(yǔ)句。
2. 我要cat。
===========================================================
hello,world!看似完全沒(méi)有作用，其實(shí)我們可以豐富它，用它來(lái)完成任何工作--只要你的想象力夠豐富。
perl世界里很有名的一個(gè)項(xiàng)目就是ppt( pOWER pERL tOOLS)，用純perl重新實(shí)現(xiàn)了所有unix常用命令。
我們來(lái)看一個(gè)最簡(jiǎn)單的cat。
##
# perl -pe 1 /etc/hosts
127.0.0.1 localhost.localdomain localhost
192.168.0.3 vi
##
就如同cat一樣，這行命令原樣的輸出了/etc/hosts文件。我們來(lái)看看它實(shí)際做了些什么：
==
#!/usr/bin/perl
for(@ARGV){
open($F,$_);
while(>){
調(diào)用執(zhí)行-e參數(shù)指定的指令
本例中為1
return 1;
}
}
==
這里解釋一下涉及到的第二個(gè)perl命令行參數(shù)-p，-p的過(guò)程實(shí)際就是自動(dòng)為我們提供了一個(gè)如上面源代碼
中所見(jiàn)的雙層循環(huán)，第一層是依次讀取命令行上指定的文件名，作為@ARGV ，打開(kāi)文件并進(jìn)行處理；
第二層循環(huán)則從open($ARGV[*])接收文件句柄，并執(zhí)行一個(gè)perl的>操作，一次讀取文件的每一行，
并進(jìn)行處理，處理的過(guò)程就是我們使用-e指定的程序語(yǔ)句。 如果沒(méi)有指定程序語(yǔ)句，那么默認(rèn)的情況
將是讀取并回顯每一行。
所以這個(gè)程序的流程如下：
1, 循環(huán)，依次讀取@ARGV 中指定的若干文件;
2, 打開(kāi)當(dāng)前文件;
3, 循環(huán)，依次使用>操作符讀取每一行，并存儲(chǔ)在臨時(shí)變量$_ ;
4, 調(diào)用-e的程序語(yǔ)句進(jìn)行處理; 在本例中，-e只有1一個(gè)參數(shù)，在perl中代表 retuen 1，直接返回真值
不作處理。
再寫(xiě)兩條有用的命令：
# perl -pe 'exit if $. > 10' FILENAME
這條相當(dāng)于unix命令head，打印指定文件的前10行 -- 你可以把10改成你想要的任何數(shù)字；
# perl -e '@lines = >; print @lines[$#lines-10 .. $#lines]' FILENAME
這條相當(dāng)于unix命令tail，打印指定文件的最后10行 -- 同樣你也可以修改成你想要的。
3. kick sed。