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