只有一行的Perl程序第1/3頁

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