本文和大家重點(diǎn)討論一下Perl模式的概念，Perl模式指在字符串中尋找的特定序列的字符，由反斜線包含：/def/即Perl模式def。其用法如結(jié)合函數(shù)split將字符串用某Perl模式分成多個(gè)單詞：@array=split(//,$line)。

Perl模式簡(jiǎn)介

Perl模式指在字符串中尋找的特定序列的字符，由反斜線包含：/def/即Perl模式def。其用法如結(jié)合函數(shù)split將字符串用某Perl模式分成多個(gè)單詞：@array=split(//,$line);

Perl模式匹配選項(xiàng)

選項(xiàng)描述
g匹配所有可能的Perl模式
i忽略大小寫
m將串視為多行
o只賦值一次
s將串視為單行
x忽略Perl模式中的空白

1、匹配所有可能的Perl模式(g選項(xiàng))

@matches="balata"=~/.a/g;#now@matches=("ba","la","ta")
匹配的循環(huán)：
while("balata"=~/.a/g){
$match=$&;
print("$match\n");
}
結(jié)果為：
ba
la
ta
當(dāng)使用了選項(xiàng)g時(shí)，可用函數(shù)pos來(lái)控制下次匹配的偏移：
$offset=pos($string);
pos($string)=$newoffset;

2、忽略大小寫(i選項(xiàng))例

/de/i匹配de,dE,De和DE。

3、將字符串看作多行(m選項(xiàng))

在此情況下，^符號(hào)匹配字符串的起始或新的一行的起始；$符號(hào)匹配任意行的末尾。

4、只執(zhí)行一次變量替換例

$var=1;  
$line=;  
while($var<10){  
$result=$line=~/$var/o;  
$line=;  
$var++;  
}  
每次均匹配/1/。  
 

 5、將字符串看作單行例

/a.*bc/s匹配字符串a(chǎn)xxxxx\nxxxxbc，但/a.*bc/則不匹配該字符串。

6、在Perl模式中忽略空格

/\d{2}([\W])\d{2}\1\d{2}/x等價(jià)于/\d{2}([\W])\d{2}\1\d{2}/。

【編輯推薦】

1. 術(shù)語(yǔ)匯編 全面認(rèn)識(shí)Perl模式
2. Perl文件句柄概念詳解
3. 解析四大Perl操作符用法
4. 專家推薦 幾款常用Perl開發(fā)工具
5. 學(xué)習(xí)筆記 Perl數(shù)字與字符串間的自動(dòng)轉(zhuǎn)換