感謝AKA及作者。

Perl 中的正則表達(dá)式
正則表達(dá)式的三種形式

正則表達(dá)式中的常用模式

正則表達(dá)式的 8 大原則  

    　　正則表達(dá)式是 Perl 語(yǔ)言的一大特色，也是 Perl 程序中的一點(diǎn)難點(diǎn)，不過(guò)如果大家能夠很好的掌握他，就可以輕易地用正則表達(dá)式來(lái)完成字符串處理的任務(wù)，當(dāng)然在 CGI 程序設(shè)計(jì)中就更能得心應(yīng)手了。下面我們列出一些正則表達(dá)式書(shū)寫(xiě)時(shí)的一些基本語(yǔ)法規(guī)則。

9.1 正則表達(dá)式的三種形式
首先我們應(yīng)該知道 Perl 程序中，正則表達(dá)式有三種存在形式，他們分別是：

匹配：m/<regexp>;/ （還可以簡(jiǎn)寫(xiě)為 /<regexp>;/ ，略去 m）

替換：s/<pattern>;/<replacement>;/

轉(zhuǎn)化：tr/<pattern>;/<replacemnt>;/

這三種形式一般都和 =~ 或 !~ 搭配使用（其中 "=~" 表示相匹配，在整條語(yǔ)句中讀作 does，"!~" 表示不匹配，在整條語(yǔ)句中讀作 doesn't），并在左側(cè)有待處理的標(biāo)量變量。如果沒(méi)有該變量和 =~ !~ 操作符，則默認(rèn)為處理 $_ 變量中的內(nèi)容。舉例如下：

$str = "I love Perl";
$str =~ m/Perl/; # 表示如果在 $str 中發(fā)現(xiàn) "Perl" 字符串，則返回 "1" 否則返回 "0"。
$str =~ s/Perl/BASH/; # 表示將變量 $str 中的 "Perl" 字符串替換為 "BASH"，如果發(fā)生此替換則返回 "1"，否則返回 "0"。
$str !~ tr/A-Z/a-z/; # 表示將變量 $str 中的所有大寫(xiě)字母轉(zhuǎn)化為小寫(xiě)字母，如果轉(zhuǎn)化發(fā)生了則返回 "0"，否則返回 "1"。

另外還有：

foreach (@array) { s/a/b/; } # 此處每次循環(huán)將從 @array 數(shù)組中取出一個(gè)元素存放在 $_ 變量中，并對(duì) $_ 進(jìn)行替換處理。
while (<FILE>;) { print if (m/error/); } # 這一句稍微復(fù)雜一些，他將打印 FILE 文件中所有包含 error 字符串的行。

Perl 的正則表達(dá)式中如果出現(xiàn) () ，則發(fā)生匹配或替換后 () 內(nèi)的模式被 Perl 解釋器自動(dòng)依次賦給系統(tǒng) $1, $2 ...... 請(qǐng)看下面的例子：

$string = "I love perl";
$string =~ s/(love)/<$1>;/; # 此時(shí) $1 = "love"，并且該替換的結(jié)果是將 $string 變?yōu)?"I <love>; perl"
$string = "i love perl";
$string =~ s/(i)(.*)(perl)/<$3>;$2<$1>;/; # 這里 $1 = "i"，$2 = " love "，$3 = "perl"，并且替換后 $string 變?yōu)?"<perl>; love <i>;"

替換操作 s/<pattern>;/<replacement>;/ 還可以在末尾加上 e 或 g 參數(shù)，他們的含義分別為：

s/<pattern>;/<replacement>;/g 表示把待處理字符串中所有符合 <pattern>; 的模式全部替換為 <replacement>; 字符串，而不是只替換第一個(gè)出現(xiàn)的模式。
s/<pattern>;/<replacement>;/e 表示將把 <replacemnet>; 部分當(dāng)作一個(gè)運(yùn)算符，這個(gè)參數(shù)用的不多。

比如下面的例子：

$string = "i:love:perl";