本文和大家重點(diǎn)討論一下Perl正則表達(dá)式的概念，Perl正則表達(dá)式是Perl語(yǔ)言的一大特色，也是Perl程序中的一點(diǎn)難點(diǎn)，不過(guò)如果大家能夠很好的掌握他，就可以輕易地用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/;/（還可以簡(jiǎn)寫為/;/，略去m）

替換：s/;/;/

轉(zhuǎn)化：tr/;/;/

Perl正則表達(dá)式的這三種形式一般都和=~或!~搭配使用（其中"=~"表示相匹配，在整條語(yǔ)句中讀作does，"!~"表示不匹配，在整條語(yǔ)句中讀作doesn't），并在左側(cè)有待處理的標(biāo)量變量。如果沒(méi)有該變量和=~!~操作符，則默認(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(;){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)?I;perl"
$string="iloveperl";
$string=~s/(i)(.*)(perl)/<$3>;$2<$1>;/;#這里$1="i"，$2="love"，$3="perl"，并且替換后$string變?yōu)?;love;"

替換操作s/;/;/還可以在末尾加上e或g參數(shù)，他們的含義分別為：

s/;/;/g表示把待處理字符串中所有符合;的模式全部替換為;字符串，而不是只替換***個(gè)出現(xiàn)的模式。
s/;/;/e表示將把;部分當(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=;;#;代表標(biāo)準(zhǔn)輸入，會(huì)讓使用者輸入一字符串 
  
  
  
chop($string);#將$string***一個(gè)換行的字符\n刪除掉 
  
  
  
if($string=~/perl/){ 
  
  
  
　　print("輸入的字符串中有perl這個(gè)字符串!\n"; 
  
  
  
} 
  
  
  

 
 
 

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