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