---

http://fanqiang.chinaunix.net/a4/b3/20010416/161458_b.html

Perl常規表達式(2)
不詳 (2001-04-16 16:14:58)
 
三 常規表達式(Regular Expresion)相關的運算符及函數


-------------------------------------------------------------------------------- 　

　指令:/pattern/文字運算

　　說明: 如果在文字運算中沒有使用=~或是!~運算符指定一個字符串來做運算的話,就會使用內定的輸出變量$_來做/pattern/文字運算。

　　范例一:  

　　$string="chmod 711 cgi";  

　　$string=~/(\W)\s+(\d+)/; #Uefang comment: Error


$1="chmod";$2=711;但是$string還是等原來的字符串,沒有改變。

　　范例二:

　　$_="chmod711cgi";  

　　/(\W)\s+(\d+)/; #Uefang comment: Error

　　因為是把字符串指定給$_這個變量,所以可以不用=~這個運算符就會得到

　　$1="chmod";$2=711;而且$_還是等原來的字符串,沒有改變。

　　范例三:  

　　$string="chmod 711 cgi";  

　　@list=split(/s+/,$string);

　　以上一個或是多個空白字符來分割$string這個字符串,這是一個很常用的語法。此時@list=("chmod","711","cgi");


Example:
$string="chmod711cgi";  
$string=~/([\d]+)/;
print "1=$1\n"; #1=711
--------------------------------------------------------------------------------  

　　指令: =~相配運算符

　　說明:這是Perl語言中特有的語法,通常會和文字處理來作運算。

　　范例:  

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

　　$string=＜STDIN＞; #＜STIDN＞代表標準輸入,會讓使用者輸入一字符串

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

　　if($string=~/cgi/){

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

　　}  

　　如果輸入的字符串含有cgi這個字符串的話,就會顯示出這個信息。

--------------------------------------------------------------------------------  

　　指令:!~不相配運算符

　　說明:這也是Perl語言中特有的語法,通常會和常規表達式來運算。

　　范例:

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

　　$string=＜STDIN＞; #＜STIDN＞代表標準輸入,會讓使用者輸入一字符串

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

　　if($string!~/cgi/)  

　　{  

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

　　}

　　如果輸入的字符串中沒有cgi這個字符串的話,就會顯示出這個信息。

--------------------------------------------------------------------------------  

　　指令:tr轉換函數

　　語法:tr/SEARCHLIST/REPLACELIST/

　　其中SEARCHLIST是要轉換的字符;REPLACELIST是轉換成何種字符。

　　說明:tr(translate)就是轉換的意思,會把符合轉換的字符轉換成要轉換的字符。

　　范例一:

　　$string="testing";

　　$string=~tr/et/ET/"; #此時$string="TEsTing";

　　$string=~tr/a-z/A-Z/; #此時$stirng="TESTING";  

　　范例二:

　　$string="CGI+Perl";

　　$string=~tr/+//; #此時$string="CGI Perl"; 在傳送CGI數據的時候會先將數據編碼,其中會將空白的字符轉成+這個字符。

-------------------------------------------------------------------------------

　　指令:s 取代函數

　　語法:s/PATTERN/REPLACE/eg

　　其中  

　　PATTERN是文字處理(Regular Expresion)的模式;

　　REPLACE是代表取代成何種文字模式。

　　而g是這個函數最常用的參數,代表要把所有符合文字模式的字符串全部取代,如果省略這個參數的話,則只取代一個符合文字模式的字符串中;  


　　范例一:

　　$string="i:love:perl";

ring="i*love*perl";

　　$string=~s/*/+/g; #此時$string="i+love+perl";  

　　$string=~s/+//g; #此時$string="i love perl";

　　上一行也可寫成 $string=~tr/+//;效果都會一樣哦!  

　　$string=~s/perl/cgi; #此時$string="i love cgi";

　　范例二:  

　　$string=~s/(love)/＜$1＞/;  

　　第一個()內所找到的字符串變成$1,在這個范例中,會把變量love這個字符串變成＜love＞,此時$string="i＜love＞perl";  

　　$string="i love perl";  

　　$string=~s(i)(perl)/＜$1＞＜$2＞/;  

　　在這個范例中,會把i變成＜i＞;perl變成＜perl＞，此時$string="＜perl＞ love ＜i＞"; 　　$string="i love perl";  

　　$string=~s(\W+)/＜$1＞/g;


　　范例三:  

　　$string="www22cgi44";

　　$string=~s/(\d+)/$1*2/e;  


　　$string="www22cgi44";  

　　$string=~s/(\d+)/$1*2/eg;


　　范例四:  

　　假設原本的字符串是$value="三八!",經CGI數據編碼之,這個字符串就會變成

　　$value="%A4T%A4K%21"。以下是一個解碼的示范程序:

　　$value="%A4T%A4K%21";  

　　$vlaue=~s/%(〔a-fA-F0-9〕

〔a-fA-F0-9〕/pack("c",hex($1))/eg;


--
※ 作者: uefangsmith 時間: 2015-09-04 15:04:24
※ 編輯: uefangsmith 時間: 2015-09-04 15:43:15