學習筆記 Perl模式簡介
本文和大家重點討論一下Perl模式的概念，Perl模式指在字符串中尋找的特定序列的字符，由反斜線包含：/def/即模式def。其用法如結合函數split將字符串用某模式分成多個單詞：@array=split(//,$line)。
Perl模式簡介
Perl模式指在字符串中尋找的特定序列的字符，由反斜線包含：/def/即模式def。其用法如結合函數split將字符串用某模式分成多個單詞：@array=split(//,$line);
一、Perl模式之替換操作符
語法為s/pattern/replacement/，其效果為將字符串中與pattern匹配的部分換成replacement。如：
$string="abc123def";
$string=~s/123/456/;#now$string="abc456def";
在替換部分可使用Perl模式次序變量$n，如s/(\d+)/[$1]/，但在替換部分不支持Perl模式的特殊字符，如{},*,+等，如s/abc/[def]/將把abc替換為[def]。
替換操作符的選項如下表：
選項描述
g改變Perl模式中的所有匹配
i忽略Perl模式中的大小寫
e替換字符串作為表達式
m將待匹配串視為多行
o僅賦值一次
s將待匹配串視為單行
x忽略Perl模式中的空白
注：e選項把替換部分的字符串看作表達式，在替換之前先計算其值，如：
$string="0abc1";
$string=~s/[a-zA-Z]+/$&x2/e;#now$string="0abcabc1"
二、Perl模式之翻譯操作符
這是另一種替換方式，語法如：tr/string1/string2/。同樣，string2為替換部分，但其效果是把string1中的***個字符替換為string2中的***個字符，把string1中的第二個字符替換為string2中的第二個字符，依此類推。如：
$string="abcdefghicba";
$string=~tr/abc/def/;#nowstring="defdefghifed"
當string1比string2長時，其多余字符替換為string2的***一個字符；當string1中同一個字符出現多次時，將使用***個替換字符。
翻譯操作符的選項如下：
選項描述
c翻譯所有未指定字符
d刪除所有指定字符
s把多個相同的輸出字符縮成一個
如$string=~tr/\d//c;把所有非數字字符替換為空格。$string=~tr/\t//d；刪除tab和空格；$string=~tr/0-9//cs；把數字間的其它字符替換為一個空格。
三、擴展Perl模式匹配
Perl支持Perl4和標準UNIXPerl模式匹配操作所沒有的一些Perl模式匹配能力。其語法為：(?pattern)，其中c是一個字符，pattern是起作用的Perl模式或子Perl模式。
1、不存貯括號內的匹配內容
在Perl的Perl模式中，括號內的子Perl模式將存貯在內存中，此功能即取消存貯該括號內的匹配內容，如/(?:a|b|c)(d|e)f\1/中的\1表示已匹配的d或e，而不是a或b或c。
2、內嵌Perl模式選項
通常Perl模式選項置于其后，有四個選項：i、m、s、x可以內嵌使用，語法為：/(?option)pattern/，等價于/pattern/option。
3、肯定的和否定的預見匹配
肯定的預見匹配語法為/pattern(?=string)/，其意義為匹配后面為string的Perl模式，相反的，(?!string)意義為匹配后面非string的Perl模式，如：
$string="25abc8";
$string=~/abc(?=[0-9])/;
$matched=$&;#$&為已匹配的Perl模式，此處為abc，而不是abc8
4、Perl模式注釋
Perl5中可以在Perl模式中用?#來加注釋，如：
if($string=~/(?i)[a-z]{2,3}(?#matchtwoorthreealphabeticcharacters)/{
...
}來源于腳本之家:http://www.jb51.net/article/17429.htm
【編輯推薦】
