感謝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";
$string =~ s/:/*/; #此時(shí) $string="i*love:perl";
$string = "i:love:perl";
$string =~ s/:/*/g; #此時(shí) $string="i*love*perl";
$string =~ tr/*/ /; #此時(shí) $string="i love perl";
$string = "www22cgi44";
$string =~ s/(\d+)/$1*2/e; # (/d+)代表 $string 中的一個(gè)或多個(gè)數(shù)字字符，將這些數(shù)字字符執(zhí)行 *2 的操作，因此最后 $string 變成了 "www44cgi88"。

下面給出一個(gè)完整的例子：

#!/usr/bin/perl

print"請(qǐng)輸入一個(gè)字符串!\n";
$string = STDIN>;; # STIDN>;代表標(biāo)準(zhǔn)輸入，會(huì)讓使用者輸入一字符串
chop($string); # 將$string最后一個(gè)換行的字符\n刪除掉
if($string =~ /perl/){
　　print("輸入的字符串中有 perl 這個(gè)字符串!\n";
}

如果輸入的字符串含有 perl 這個(gè)字符串的話，就會(huì)顯示后面的提示信息。

9.2 正則表達(dá)式中的常用模式
下面是正則表達(dá)式中的一些常用模式。

/pattern/  結(jié)果 
. 匹配除換行符以外的所有字符
x? 匹配 0 次或一次 x 字符串
x* 匹配 0 次或多次 x 字符串，但匹配可能的最少次數(shù)
x+ 匹配 1 次或多次 x 字符串，但匹配可能的最少次數(shù)
.* 匹配 0 次或一次的任何字符
.+ 匹配 1 次或多次的任何字符
{m} 匹配剛好是 m 個(gè) 的指定字符串
{m,n} 匹配在 m個(gè) 以上 n個(gè) 以下 的指定字符串
{m,} 匹配 m個(gè) 以上 的指定字符串
[] 匹配符合 [] 內(nèi)的字符
[^] 匹配不符合 [] 內(nèi)的字符
[0-9] 匹配所有數(shù)字字符
[a-z] 匹配所有小寫(xiě)字母字符
[^0-9] 匹配所有非數(shù)字字符
[^a-z] 匹配所有非小寫(xiě)字母字符
^ 匹配字符開(kāi)頭的字符
$ 匹配字符結(jié)尾的字符
\d 匹配一個(gè)數(shù)字的字符，和 [0-9] 語(yǔ)法一樣
\d+ 匹配多個(gè)數(shù)字字符串，和 [0-9]+ 語(yǔ)法一樣
\D 非數(shù)字，其他同 \d
\D+ 非數(shù)字，其他同 \d+
\w 英文字母或數(shù)字的字符串，和 [a-zA-Z0-9] 語(yǔ)法一樣
\w+ 和 [a-zA-Z0-9]+ 語(yǔ)法一樣
\W 非英文字母或數(shù)字的字符串，和 [^a-zA-Z0-9] 語(yǔ)法一樣
\W+ 和 [^a-zA-Z0-9]+ 語(yǔ)法一樣
\s 空格，和 [\n\t\r\f] 語(yǔ)法一樣
\s+ 和 [\n\t\r\f]+ 一樣
\S 非空格，和 [^\n\t\r\f] 語(yǔ)法一樣
\S+ 和 [^\n\t\r\f]+ 語(yǔ)法一樣
\b 匹配以英文字母,數(shù)字為邊界的字符串
\B 匹配不以英文字母,數(shù)值為邊界的字符串
a|b|c 匹配符合a字符 或是b字符 或是c字符 的字符串
abc 匹配含有 abc 的字符串
(pattern) () 這個(gè)符號(hào)會(huì)記住所找尋到的字符串，是一個(gè)很實(shí)用的語(yǔ)法。第一個(gè) () 內(nèi)所找到的字符串變成 $1 這個(gè)變量或是 \1 變量，第二個(gè) () 內(nèi)所找到的字符串變成 $2 這個(gè)變量或是 \2 變量，以此類(lèi)推下去。 
/pattern/i i 這個(gè)參數(shù)表示忽略英文大小寫(xiě)，也就是在匹配字符串的時(shí)候，不考慮英文的大小寫(xiě)問(wèn)題。
\ 如果要在 pattern 模式中找尋一個(gè)特殊字符，如 "*"，則要在這個(gè)字符前加上 \ 符號(hào)，這樣才會(huì)讓特殊字符失效
 

下面給出一些例子：   

范例 說(shuō)明
/perl/ 找到含有 perl 的字符串
/^perl/ 找到開(kāi)頭是 perl 的字符串
/perl$/ 找到結(jié)尾是 perl 的字符串
/c|g|i/ 找到含有 c 或 g 或 i 的字符串
/cg{2,4}i/ 找到 c 后面跟著 2個(gè)到 4個(gè) g ，再跟著 i 的字符串
/cg{2,}i/ 找到 c 后面跟著 2個(gè)以上 g ，再跟著 i 的字符串
/cg{2}i/ 找到 c 后面跟著 2個(gè) g，再跟著 i 的字符串
/cg*i/ 找到 c 后面跟著 0個(gè)或多個(gè) g ，再跟著 i 的字符串，如同/cg{0,1}i/
/cg+i/ 找到 c 后面跟著一個(gè)以上 g，再跟著 i 的字符串，如同/cg{1,}i/
/cg?i/ 找到 c 后面跟著 0個(gè)或是 1個(gè) g ，再跟著 i 的字符串，如同/cg{0,1}i/
/c.i/ 找到 c 后面跟著一個(gè)任意字符，再跟著 i 的字符串
/c..i/ 找到 c 后面跟著二個(gè)任意字符，再跟著 i 的字符串
/[cgi]/ 找到符合有這三個(gè)字符任意一個(gè)的字符串
/[^cgi]/ 找到?jīng)]有這三個(gè)字符中任意一個(gè)的字符串
/\d/ 找尋符合數(shù)字的字符，可以使用/\d+/來(lái)表示一個(gè)或是多個(gè)數(shù)字組成的字符串
/\D/ 找尋符合不是數(shù)字的字符，可以使用/\D+/來(lái)表示一個(gè)或是更多個(gè)非數(shù)字組成的字符串
/\*/ 找尋符合 * 這個(gè)字符，因?yàn)?* 在常規(guī)表達(dá)式中有它的特殊意思，所以要在這個(gè)特殊符號(hào)前加上 \ 符號(hào)，這樣才會(huì)讓這個(gè)特殊字符失效
/abc/i 找尋符合 abc 的字符串而且不考慮這些字符串的大小寫(xiě)

9.3 正則表達(dá)式的八大原則
　　如果在 Unix 中曾經(jīng)使用過(guò) sed、awk、grep 這些命令的話，相信對(duì)于 Perl 語(yǔ)言中的正則表達(dá)式(Regular Expression)不會(huì)感到陌生。Perl 語(yǔ)言由于有這個(gè)功能，所以對(duì)字符串的處理能力非常強(qiáng)。在Perl語(yǔ)言的程序中，經(jīng)常可以看到正則表達(dá)式的運(yùn)用，在 CGI 程序設(shè)計(jì)中也不例外。

　　正則表達(dá)式是初學(xué) Perl 的難點(diǎn)所在，不過(guò)只要一旦掌握其語(yǔ)法，你就可以擁有幾乎無(wú)限的模式匹配能力，而且 Perl 編程的大部分工作都是掌握常規(guī)表達(dá)式。下面給大家介紹幾條正則表達(dá)式使用過(guò)程中的 8 大原則。

　　正則表達(dá)式在對(duì)付數(shù)據(jù)的戰(zhàn)斗中可形成龐大的聯(lián)盟——這常常是一場(chǎng)戰(zhàn)爭(zhēng)。我們要記住下面八條原則：

· 原則1：正則表達(dá)式有三種不同形式(匹配(m/ /)，替換(s/ / /eg)和轉(zhuǎn)換(tr/ / /))。

· 原則2：正則表達(dá)式僅對(duì)標(biāo)量進(jìn)行匹配( $scalar =~ m/a/; 可以工作; @array =~ m/a/ 將把@array作為標(biāo)量對(duì)待，因此可能不會(huì)成功)。

· 原則3：正則表達(dá)式匹配一個(gè)給定模式的最早的可能匹配。缺省時(shí)，僅匹配或替換正則表達(dá)式一次( $a = 'string string2'; $a =~ s/string/ /; 導(dǎo)致 $a = 'string 2')。

· 原則4：正則表達(dá)式能夠處理雙引號(hào)所能處理的任意和全部字符( $a =~ m/$varb/ 在匹配前把varb擴(kuò)展為變量；如果 $varb = 'a' $a = 'as'，$a =~ s/$varb/ /; 等價(jià)于 $a =~ s/a/ /; ，執(zhí)行結(jié)果使 $a = " s" )。

· 原則5：正則表達(dá)式在求值過(guò)程中產(chǎn)生兩種情況：結(jié)果狀態(tài)和反向引用： $a=~ m/pattern/ 表示 $a 中是否有子串 pattern 出現(xiàn)，$a =~ s/(word1)(word2)/$2$1/ 則“調(diào)換”這兩個(gè)單詞。

· 原則6：正則表達(dá)式的核心能力在于通配符和多重匹配運(yùn)算符以及它們?nèi)绾尾僮鳌?a =~ m/\w+/ 匹配一個(gè)或多個(gè)單詞字符；$a =~ m/\d/" 匹配零個(gè)或多個(gè)數(shù)字。

· 原則7：如果欲匹配不止一個(gè)字符集合，Perl使用 "|" 來(lái)增加靈活性。如果輸入 m/(cat|dog)/ 則相當(dāng)于“匹配字符串 cat 或者 dog。

· 原則8：Perl用 (?..) 語(yǔ)法給正則表達(dá)式提供擴(kuò)展功能。（這一點(diǎn)請(qǐng)同學(xué)們課后看相關(guān)資料）

想要學(xué)習(xí)所有這些原則？我建議大家先從簡(jiǎn)單的開(kāi)始，并且不斷的嘗試和實(shí)驗(yàn)。實(shí)際上如果學(xué)會(huì)了 $a =~ m/ERROR/ 是在 $a 中查找子串ERROR，那么你就已經(jīng)比在 C 這樣的低層語(yǔ)言中得到了更大的處理能力。

補(bǔ)充：

good
簡(jiǎn)潔明了
但是原文中
\w 英文字母或數(shù)字的字符串，和 [a-zA-Z0-9] 語(yǔ)法一樣 
這好象錯(cuò)了吧
我記得應(yīng)該還包括下劃線,也就是[a-zA-Z_0-9]

/cg*i/ 找到 c 后面跟著 0個(gè)或多個(gè) g ，再跟著 i 的字符串，如同/cg{0,1}i/ 
這句也筆誤了
應(yīng)該是
/cg*i/ 找到 c 后面跟著 0個(gè)或多個(gè) g ，再跟著 i 的字符串，如同/cg{0,}i/