日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

本文和大家重點討論一下Perl正則表達(dá)式的概念，Perl正則表達(dá)式是Perl語言的一大特色，也是Perl程序中的一點難點，不過如果大家能夠很好的掌握他，就可以輕易地用Perl正則表達(dá)式來完成字符串處理的任務(wù)，當(dāng)然在CGI程序設(shè)計中就更能得心應(yīng)手了。下面我們列出一些Perl正則表達(dá)式書寫時的一些基本語法規(guī)則。

Perl正則表達(dá)式的三種形式

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

匹配：m/;/（還可以簡寫為/;/，略去m）

替換：s/;/;/

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

Perl正則表達(dá)式的這三種形式一般都和=~或!~搭配使用（其中"=~"表示相匹配，在整條語句中讀作does，"!~"表示不匹配，在整條語句中讀作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ù)組中取出一個元素存放在$_變量中，并對$_進行替換處理。
while(;){printif(m/error/);}#這一句稍微復(fù)雜一些，他將打印FILE文件中所有包含error字符串的行。

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

$string="Iloveperl";
$string=~s/(love)/<$1>;/;#此時$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表示把待處理字符串中所有符合;的模式全部替換為;字符串，而不是只替換***個出現(xiàn)的模式。
s/;/;/e表示將把;部分當(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="iloveperl"; 
  
  
  
$string="www22cgi44"; 
  
  
  
$string=~s/(\d+)/$1*2/e;#(/d+)代表$string中的一個或多個數(shù)字字符，將這些數(shù)字字符執(zhí)行*2的操作，因此***$string變成了"www44cgi88"。
 
 
 

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

 
 
 

  
  
  
#!/usr/bin/perl 
  
  
  

  
  
  
print"請輸入一個字符串!\n"; 
  
  
  
$string=;;#;代表標(biāo)準(zhǔn)輸入，會讓使用者輸入一字符串 
  
  
  
chop($string);#將$string***一個換行的字符\n刪除掉 
  
  
  
if($string=~/perl/){ 
  
  
  
　　print("輸入的字符串中有perl這個字符串!\n"; 
  
  
  
} 
  
  
  

 
 
 

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