Perl 中的正則表達式
正則表達式的三種形式
正則表達式中的常用模式
正則表達式的 8 大原則
正則表達式是 Perl 語言的一大特色，也是 Perl 程序中的一點難點，不過如果大家能夠很好的掌握他，就可以輕易地用正則表達式來完成字符串處理的任務，當然在 CGI 程序設計中就更能得心應手了。下面我們列出一些正則表達式書寫時的一些基本語法規則。
--------------------------------------------------------------------------------
9.1 正則表達式的三種形式
首先我們應該知道 Perl 程序中，正則表達式有三種存在形式，他們分別是：
匹配：m/<regexp>;/ （還可以簡寫為 /<regexp>;/ ，略去 m）
替換：s/<pattern>;/<replacement>;/
轉化：tr/<pattern>;/<replacemnt>;/
這三種形式一般都和 =~ 或 !~ 搭配使用（其中 "=~" 表示相匹配，在整條語句中讀作 does，"!~" 表示不匹配，在整條語句中讀作 doesn't），并在左側有待處理的標量變量。如果沒有該變量和 =~ !~ 操作符，則默認為處理 $_ 變量中的內容。舉例如下：
$str = "I love Perl";
$str =~ m/Perl/; # 表示如果在 $str 中發現 "Perl" 字符串，則返回 "1" 否則返回 "0"。
$str =~ s/Perl/BASH/; # 表示將變量 $str 中的 "Perl" 字符串替換為 "BASH"，如果發生此替換則返回 "1"，否則返回 "0"。
$str !~ tr/A-Z/a-z/; # 表示將變量 $str 中的所有大寫字母轉化為小寫字母，如果轉化發生了則返回 "0"，否則返回 "1"。
另外還有：
foreach (@array) { s/a/b/; } # 此處每次循環將從 @array 數組中取出一個元素存放在 $_ 變量中，并對 $_ 進行替換處理。
while (<FILE>;) { print if (m/error/); } # 這一句稍微復雜一些，他將打印 FILE 文件中所有包含 error 字符串的行。
Perl 的正則表達式中如果出現 () ，則發生匹配或替換后 () 內的模式被 Perl 解釋器自動依次賦給系統 $1, $2 ...... 請看下面的例子：
$string = "I love perl";
$string =~ s/(love)/<$1>;/; # 此時 $1 = "love"，并且該替換的結果是將 $string 變為 "I <love>; perl"
$string = "i love perl";
$string =~ s/(i)(.*)(perl)/<$3>;$2<$1>;/; # 這里 $1 = "i"，$2 = " love "，$3 = "perl"，并且替換后 $string 變為 "<perl>; love <i>;"
替換操作 s/<pattern>;/<replacement>;/ 還可以在末尾加上 e 或 g 參數，他們的含義分別為：
s/<pattern>;/<replacement>;/g 表示把待處理字符串中所有符合 <pattern>; 的模式全部替換為 <replacement>; 字符串，而不是只替換第一個出現的模式。
s/<pattern>;/<replacement>;/e 表示將把 <replacemnet>; 部分當作一個運算符，這個參數用的不多。
比如下面的例子：
$string = "i:love:perl";
$string =~ s/:/*/; #此時 $string="i*love:perl";
$string = "i:love:perl";
$string =~ s/:/*/g; #此時 $string="i*love*perl";
$string =~ tr/*/ /; #此時 $string="i love perl";
$string = "www22cgi44";
$string =~ s/(\d+)/$1*2/e; # (/d+)代表 $string 中的一個或多個數字字符，將這些數字字符執行 *2 的操作，因此最后 $string 變成了 "www44cgi88"。
下面給出一個完整的例子：
#!/usr/bin/perl
print"請輸入一個字符串!\n";
$string = <STDIN>;; # <STIDN>;代表標準輸入，會讓使用者輸入一字符串
chop($string); # 將$string最后一個換行的字符\n刪除掉
if($string =~ /perl/){
print("輸入的字符串中有 perl 這個字符串!\n";
}
如果輸入的字符串含有 perl 這個字符串的話，就會顯示后面的提示信息。
文章來源于領測軟件測試網 http://www.kjueaiud.com/
