解析Perl命令行程序用法
本文和大家重點討論一下Perl命令行程序的概念，主要包括隱式循環，數據分隔符和原位編輯等內容，相信通過本文的學習你一定會對Perl命令行程序有初步的認識。
Perl命令行程序
命令行程序
下面的幾個Perl參數可以讓短小的Perl程序很容易的在命令行上運行。-e可以讓Perl代碼在命令行上被編譯器直接執行.例如,我們可以直接在命令行上運行"HelloWorld"程序而不用把它寫稱Perl程序。
$Perl
-e'print"HelloWorld\n"'
多個-e也可以同時使用,運行順序根據它出現的位置.
$Perl
-e'print"Hello"$$'-e'print"World\n"'
象所有的Perl程序一樣,只有程序的***一行不需要以;結尾.
雖然你也可以用-e來引用模塊,但-M讓它變得更容易.
$Perl
-MLWP::Simple-e'printhead"http://www.example.com"'
-M模塊名和use模塊名一樣。有些模塊有默認的模塊導入，如果你不想導入它們，你可以使用-m。-m模塊名和usemodule()一樣，關閉了默認的導入。例如下面這個例子,因為head函數是默認導入，而使用-m時就不會執行，結果是沒有輸出。
$Perl
-mLWP::Simple-e'printhead"http://www.example.com"'
-m和-M有很多方便的語法來幫助你使用它們，你可以在=后面列出對use的各種參數。
$Perl
-MCGI=:standard-e'printheader'
在這里，CGI.pm的:standard被引入，header函數因此可以使用。要引入多個參數可以通過使用引號和逗號。
$Perl
-MCGI='header,start_html'-e'printheader,start_html'
這里我們引入了header和start_html函數。
Perl命令行程序之隱式循環
-n和-p增加了循環的功能,使你可以一行一行來處理文件.
$Perl
-n-e'somecode'file1
這與下面的程序一樣.
LINE:
while(<>){
#yourcodegoeshere
}
注意：<>打開命令行里的文件，一行行的讀取。每一行將缺省保存在$_
$Perl
-n-e'print"$.-$_"'file
上面的這一行可以寫成
LINE:
while(<>){
print"$.-$_"
}
輸出當前行數$.和當前行$_.-p可以讓上面的程序變得更容易.-p會輸出$_的內容，就像這樣：
LINE:
while(<>){
#yourcodegoeshere
}continue{
printordie"-pdestination:$!\n"$$
}
continue在這里保證print在每次循環都會被調用。
使用-p，我們的打印行數程序可以改為
$Perl
-p-e'$_="$.-$_"'
這種情況下我們就不需要要明確地調用print函數了，因為-p選項已經調用了它。
注意，LINE:標簽可以讓我們直接跳到下一個輸入記錄，而不管你進入了多少層循環。使用nextLINE。
$Perl
-n-e'nextLINEunless/pattern/;print$_'
當然，也可以這樣寫：
$Perl
-n-e'printunless/pattern/'
在更復雜的情況里，nextLINE可以讓你的代碼更容易理解。
如果想在循環的前后做些處理，可以使用BEGIN或ENDblock.下面的這一行代碼可以計算text文件里的字數。
$Perl
-ne'END{print$t}@w=/(\w+)/g;$t+=@w'file.txt
每一行所有匹配的字放入數組@w，然后把@w的元素數目遞加到$t。ENDblock里的print***輸出文件總字數。
還有兩個參數可以讓這個程序變得更簡單。-a打開自動分離(split)模式。空格是缺省的分離號。輸入根據分離號被分離然后放入缺省數組@F。由此,我們可以把上面的程序改寫為
$Perl
-ane'END{print$x}$x+=@F'file.txt
你也可以通過-F把缺省的分離號改為你想要的.例如把分離號定為非字符:
$Perl
-F'\W'-ane'END{print$x}$x+=@F'file.txt
下面通過Unixpassword文件來介紹一個復雜的例子。Unixpassword是文本文件，每一行是一個用戶記錄，由冒號：分離。第？行是用戶的登錄shell路徑。我們可以得出每一個不同shell路徑被多少個用戶使用：
$Perl
-F':'-ane'$s{$F[6]}++;'\
>-e'END{print"$_:$s{$_}"forkeys%s}'/etc/passwd
雖然現在不是一行，但是你可以看出使用參數可以解決什么問題。#p#
Perl命令行程序之數據分隔符
我以前的文章里提到過$/和$\--輸入，輸出分隔號。$/用來分隔從文件句柄里讀出的數據，缺省$/分隔號是\n，這樣每次從文件句柄里就會一行行的讀取。$\缺省是空字符，用來自動加到要print的數據尾端。這就是為什么很多時候print都要在末尾加上\n。
$/和$\可與-n-p一起使用。在命令行上相對應為-0(零)和-l(這是L)。-0后面可以跟一個16進制或8進制數值，這個值用來賦給$/。-00打開段落模式，-0777打開slurp模式（即可以一次把整個文件讀入），這與把$/設為空字符和undef一樣效果。
單獨使用-l有兩個效果，***自動chomp輸入分隔號，第二把$/值付給$\(這樣print的時候就會自動在末尾加\n)
我個人常常使用-l參數,用來給每一個輸出加\n.例如
$Perl
-le'print"HelloWorld"'
Perl命令行程序之原位編輯
使用已有的參數我們可以寫出很有效的命令行程序.常見的UnixI/O重定向:
$Perl
-pe'somecode'<input.txt>output.txt
這個程序從input.txt讀取數據,然后做一些處理再輸出到output.txt.你當然也可以把輸出重定向到同一個文件里.
上面的程序可以通過-i參數做的更簡單些。-i把源文件更名然后從這個更名的源文件里讀取。***把處理后的數據寫入源文件。如果-i后跟有其他字符串，這個字符串與源文件名合成后來生成一個新的文件名。此文件會被用來儲存原始文件以免被-i參數覆蓋。
這個例子把所有php字符替換為Perl:
$Perl
-i-pe's/\bPHP\b/Perl/g'file.txt
程序讀取文件的每一行,然后替換字符,處理后的數據重新寫入(即覆蓋)源文件.如果不想覆蓋源文件,可以使用
$Perl
-i.bak-pe's/\bPHP\b/Perl/g'file.txt
這里處理過的數據寫入file.txt,file.txt.bak是源文件的備份.
【編輯推薦】
