Perl正則表達式的三種形式
本文和大家重點討論一下Perl正則表達式的概念，Perl正則表達式是Perl語言的一大特色，也是Perl程序中的一點難點，不過如果大家能夠很好的掌握他，就可以輕易地用Perl正則表達式來完成字符串處理的任務，當然在CGI程序設計中就更能得心應手了。下面我們列出一些Perl正則表達式書寫時的一些基本語法規則。
Perl正則表達式的三種形式
首先我們應該知道Perl程序中，Perl正則表達式有三種存在形式，他們分別是：
匹配：m/<regexp>;/（還可以簡寫為/<regexp>;/，略去m）
替換：s/<pattern>;/<replacement>;/
轉化：tr/<pattern>;/<replacemnt>;/
Perl正則表達式的這三種形式一般都和=~或!~搭配使用（其中"=~"表示相匹配，在整條語句中讀作does，"!~"表示不匹配，在整條語句中讀作doesn't），并在左側有待處理的標量變量。如果沒有該變量和=~!~操作符，則默認為處理$_變量中的內容。舉例如下：
$str="IlovePerl";
$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>;){printif(m/error/);}#這一句稍微復雜一些，他將打印FILE文件中所有包含error字符串的行。
Perl的Perl正則表達式中如果出現()，則發生匹配或替換后()內的模式被Perl解釋器自動依次賦給系統$1,$2......請看下面的例子：
$string="Iloveperl";
$string=~s/(love)/<$1>;/;#此時$1="love"，并且該替換的結果是將$string變為"I<love>;perl"
$string="iloveperl";
$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="iloveperl";
- $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這個字符串的話，就會顯示后面的提示信息。
【編輯推薦】
