一、注釋

=pod

這里的是注釋

=cut

二、chomp

去掉換行符（\n）

去掉$/

chomp($text=<STDIN>);????#讀入，但不含換行符

三、<STDIN>

$line = <STDIN>;? #一次讀一行，性能好。

<STDIN>會帶有換行符，通常都會加上chomp()操作符去掉換行符，

四、鉆石尖括號<>

使用兩個尖括號表示讀取來自文件的輸入，可以從命令行中傳遞文件到<>。

$ ./test.plx test.log

當(dāng)不注釋掉 chomp（$line）的時候，運行結(jié)果如下。可以發(fā)現(xiàn)，顯示出來的例子去掉了換行符。

五、文件讀取

(1) 打開文件常用 open（）函數(shù)，open() or die ().

open（FILEVAR，"file1"） or die ("can not oen input .FILEVAR \n");

(2) 讀文件

$line=<FILEVAR>;

從文件中讀取一行數(shù)據(jù)存儲到簡單變量 $line 中，并把文件指針向后移動一行。

@array= <FILEVAR>;

把文件的全部內(nèi)容讀入數(shù)組@array，文件的每一行為@array的一個元素。很多時候用chomp(@array=<FILEVAR>);去掉行末換行符。

（3）寫文件

open(OUTFILE,">outfile");

>大于號為寫入文件，后跟文件名。

六、split函數(shù)

把字符串進行分割并把分割后的結(jié)果放入數(shù)組中。

split(/\s+/,$line)表示把字符串$line,按空格為界分開。

七、正則匹配

(1)刪除以數(shù)字開頭的行

%s/^\d.*$//g

(2)刪除以abc開頭的行

%s/^[a|b|c].*$//g 或者 %s/^abc.*$//g

(3)刪除以a或者b或者c開頭的行

%s/^[abc].*$//g

(4)刪除重復(fù)行

1、將兩行重復(fù)行壓縮成一行%s/^\(.*\)\n\1$/\1/g\( \)有保存功能，將括號內(nèi)的內(nèi)容保存。后面的\1表示此內(nèi)容復(fù)現(xiàn)。 2、將連續(xù)多次重復(fù)行壓縮成一行%s/^\(.*\)\(\n\1\)\+$/\1/g出現(xiàn)的\( \)內(nèi)容，\(.*\)用\1來表示，\(\n\1\)可以用\2來表示

八、函數(shù)式

s/替換內(nèi)容/\=函數(shù)式

%s/\<id\>/\=line(".")<>表示詞首或詞尾，line(".")表示行號

?

總結(jié)

以上是生活随笔為你收集整理的脚本入门（2）-perl脚本的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。