1 正則表達式的三種形式

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

匹配：m/<regexp>/ （還可以簡寫為 /<regexp>/ ,，略去 m）

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

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

這三種形式一般都和 =~ 或 !~ 搭配使用（其中 "=~" 表示相匹配,，在整條語句中讀作 does，"!~" 表示不匹配,，在整條語句中讀作 doesn‘t）,，并在左側(cè)有待處理的標(biāo)量變量。如果沒有該變量和 =~ !~ 操作符,，則默認為處理 $_ 變量中的內(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 中的所有大寫字母轉(zhuǎn)化為小寫字母,，如果轉(zhuǎn)化發(fā)生了則返回 "0"，否則返回 "1",。

另外還有：

foreach (@array) { s/a/b/; } # 此處每次循環(huán)將從 @array 數(shù)組中取出一個元素存放在 $_ 變量中,，并對 $_ 進行替換處理。

while (<FILE>) { print if (m/error/); } # 這一句稍微復(fù)雜一些，他將打印 FILE 文件中所有包含 error 字符串的行,。

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

$string = "I love perl";

$string =~ s/(love)/<$1>/; # 此時 $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> 字符串,，而不是只替換第一個出現(xiàn)的模式。

s/<pattern>/<replacement>/e 表示將把 <replacemnet> 部分當(dāng)作一個運算符,，這個參數(shù)用的不多,。

比如下面的例子：

$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 中的一個或多個數(shù)字字符，將這些數(shù)字字符執(zhí)行 *2 的操作,，因此最后 $string 變成了 "www44cgi88",。

下面給出一個完整的例子：

#!/usr/bin/perl

print"請輸入一個字符串!\n";

$string = <STDIN>; # <STIDN>代表標(biāo)準(zhǔn)輸入，會讓使用者輸入一字符串

chop($string); # 將$string最后一個換行的字符\n刪除掉

if($string =~ /perl/){

print("輸入的字符串中有 perl 這個字符串!\n";

}

如果輸入的字符串含有 perl 這個字符串的話,，就會顯示后面的提示信息,。