建站
咨詢
售后
建站咨詢
新聞中心
Perl正則表達式
創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),永修企業(yè)網(wǎng)站建設(shè),永修品牌網(wǎng)站建設(shè),網(wǎng)站定制,永修網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,永修網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學習、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。
Perl正則表達式是Perl語言的一大特色，也是Perl程序中的一點難點，不過如果大家能夠很好的掌握他，就可以輕易地用Perl正則表達式來完成字符串處理的任務(wù)，當然在CGI程序設(shè)計中就更能得心應(yīng)手了。下面我們列出一些Perl正則表達式書寫時的一些基本語法規(guī)則。
--------------------------------------------------------------------------------
1.1Perl正則表達式的三種形式
首先我們應(yīng)該知道Perl程序中，Perl正則表達式有三種存在形式，他們分別是：
匹配：m/
替換：s/
轉(zhuǎn)化：tr/
這三種形式一般都和=~或!~搭配使用（其中"=~"表示相匹配，在整條語句中讀作does，"!~"表示不匹配，在整條語句中讀作doesn't），并在左側(cè)有待處理的標量變量。如果沒有該變量和=~!~操作符，則默認為處理$_變量中的內(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(
Perl的Perl正則表達式中如果出現(xiàn)()，則發(fā)生匹配或替換后()內(nèi)的模式被Perl解釋器自動依次賦給系統(tǒng)$1,$2......請看下面的例子：
$string="Iloveperl";
$string=~s/(love)/<$1>;/;#此時$1="love"，并且該替換的結(jié)果是將$string變?yōu)?I
$string="iloveperl";
$string=~s/(i)(.*)(perl)/<$3>;$2<$1>;/;#這里$1="i"，$2="love"，$3="perl"，并且替換后$string變?yōu)?
替換操作s/
s/
s/
比如下面的例子：
$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=
chop($string);#將$string最后一個換行的字符\n刪除掉
if($string=~/perl/){
print("輸入的字符串中有perl這個字符串!\n";
}
如果輸入的字符串含有perl這個字符串的話，就會顯示后面的提示信息。#p#
1.2Perl正則表達式中的常用模式
下面是Perl正則表達式中的一些常用模式。
- /pattern/結(jié)果
- .匹配除換行符以外的所有字符
- x?匹配0次或一次x字符串
- x*匹配0次或多次x字符串，但匹配可能的最少次數(shù)
- x+匹配1次或多次x字符串，但匹配可能的最少次數(shù)
- .*匹配0次或一次的任何字符
- .+匹配1次或多次的任何字符
- {m}匹配剛好是m個的指定字符串
- {m,n}匹配在m個以上n個以下的指定字符串
- {m,}匹配m個以上的指定字符串
- []匹配符合[]內(nèi)的字符
- [^]匹配不符合[]內(nèi)的字符
- [0-1]匹配所有數(shù)字字符
- [a-z]匹配所有小寫字母字符
- [^0-1]匹配所有非數(shù)字字符
- [^a-z]匹配所有非小寫字母字符
- ^匹配字符開頭的字符
- $匹配字符結(jié)尾的字符
- \d匹配一個數(shù)字的字符，和[0-1]語法一樣
- \d+匹配多個數(shù)字字符串，和[0-1]+語法一樣
- \D非數(shù)字，其他同\d
- \D+非數(shù)字，其他同\d+
- \w英文字母或數(shù)字的字符串，和[a-zA-Z0-1]語法一樣
- \w+和[a-zA-Z0-1]+語法一樣
- \W非英文字母或數(shù)字的字符串，和[^a-zA-Z0-1]語法一樣
- \W+和[^a-zA-Z0-1]+語法一樣
- \s空格，和[\n\t\r\f]語法一樣
- \s+和[\n\t\r\f]+一樣
- \S非空格，和[^\n\t\r\f]語法一樣
- \S+和[^\n\t\r\f]+語法一樣
- \b匹配以英文字母,數(shù)字為邊界的字符串
- \B匹配不以英文字母,數(shù)值為邊界的字符串
- a|b|c匹配符合a字符或是b字符或是c字符的字符串
- abc匹配含有abc的字符串
- (pattern)()這個符號會記住所找尋到的字符串，是一個很實用的語法。第一個()內(nèi)所找到的字符串變成$1這個變量或是\1變量，第二個()內(nèi)所找到的字符串變成$2這個變量或是\2變量，以此類推下去。
- /pattern/ii這個參數(shù)表示忽略英文大小寫，也就是在匹配字符串的時候，不考慮英文的大小寫問題。
- \如果要在pattern模式中找尋一個特殊字符，如"*"，則要在這個字符前加上\符號，這樣才會讓特殊字符失效
下面給出一些例子：
范例說明
- /perl/找到含有perl的字符串
- /^perl/找到開頭是perl的字符串
- /perl$/找到結(jié)尾是perl的字符串
- /c|g|i/找到含有c或g或i的字符串
- /cg{2,4}i/找到c后面跟著2個到4個g，再跟著i的字符串
- /cg{2,}i/找到c后面跟著2個以上g，再跟著i的字符串
- /cg{2}i/找到c后面跟著2個g，再跟著i的字符串
- /cg*i/找到c后面跟著0個或多個g，再跟著i的字符串，如同/cg{0,1}i/
- /cg+i/找到c后面跟著一個以上g，再跟著i的字符串，如同/cg{1,}i/
- /cg?i/找到c后面跟著0個或是1個g，再跟著i的字符串，如同/cg{0,1}i/
- /c.i/找到c后面跟著一個任意字符，再跟著i的字符串
- /c..i/找到c后面跟著二個任意字符，再跟著i的字符串
- /[cgi]/找到符合有這三個字符任意一個的字符串
- /[^cgi]/找到?jīng)]有這三個字符中任意一個的字符串
- /\d/找尋符合數(shù)字的字符，可以使用/\d+/來表示一個或是多個數(shù)字組成的字符串
- /\D/找尋符合不是數(shù)字的字符，可以使用/\D+/來表示一個或是更多個非數(shù)字組成的字符串
- /\*/找尋符合*這個字符，因為*在常規(guī)表達式中有它的特殊意思，所以要在這個特殊符號前加上\符號，這樣才會讓這個特殊字符失效
- /abc/i找尋符合abc的字符串而且不考慮這些字符串的大小寫
1.3Perl正則表達式的八大原則
如果在Unix中曾經(jīng)使用過sed、awk、grep這些命令的話，相信對于Perl語言中的Perl正則表達式(RegularExpression)不會感到陌生。Perl語言由于有這個功能，所以對字符串的處理能力非常強。在Perl語言的程序中，經(jīng)?？梢钥吹?font>Perl正則表達式的運用，在CGI程序設(shè)計中也不例外。
Perl正則表達式是初學Perl的難點所在，不過只要一旦掌握其語法，你就可以擁有幾乎無限的模式匹配能力，而且Perl編程的大部分工作都是掌握常規(guī)表達式。下面給大家介紹幾條Perl正則表達式使用過程中的8大原則。
Perl正則表達式在對付數(shù)據(jù)的戰(zhàn)斗中可形成龐大的聯(lián)盟——這常常是一場戰(zhàn)爭。我們要記住下面八條原則：
◆原則1：Perl正則表達式有三種不同形式(匹配(m//)，替換(s///eg)和轉(zhuǎn)換(tr///))。
◆原則2：Perl正則表達式僅對標量進行匹配($scalar=~m/a/;可以工作;@array=~m/a/將把@array作為標量對待，因此可能不會成功)。
◆原則3：Perl正則表達式匹配一個給定模式的最早的可能匹配。缺省時，僅匹配或替換Perl正則表達式一次($a='stringstring2';$a=~s/string//;導(dǎo)致$a='string2')。
◆原則4：Perl正則表達式能夠處理雙引號所能處理的任意和全部字符($a=~m/$varb/在匹配前把varb擴展為變量；如果$varb='a'$a='as'，$a=~s/$varb//;等價于$a=~s/a//;，執(zhí)行結(jié)果使$a="s")。
◆原則5：Perl正則表達式在求值過程中產(chǎn)生兩種情況：結(jié)果狀態(tài)和反向引用：$a=~m/pattern/表示$a中是否有子串pattern出現(xiàn)，$a=~s/(word1)(word2)/$2$1/則“調(diào)換”這兩個單詞。
◆原則6：Perl正則表達式的核心能力在于通配符和多重匹配運算符以及它們?nèi)绾尾僮鳌?a=~m/\w+/匹配一個或多個單詞字符；$a=~m/\d/"匹配零個或多個數(shù)字。
◆原則7：如果欲匹配不止一個字符集合，Perl使用"|"來增加靈活性。如果輸入m/(cat|dog)/則相當于“匹配字符串cat或者dog。
◆原則8：Perl用(?..)語法給Perl正則表達式提供擴展功能。（這一點請同學們課后看相關(guān)資料）
想要學習所有這些原則？我建議大家先從簡單的開始，并且不斷的嘗試和實驗。實際上如果學會了$a=~m/ERROR/是在$a中查找子串ERROR，那么你就已經(jīng)比在C這樣的低層語言中得到了更大的處理能力。
文章題目：Perl正則表達式的三種形式和八大原則
分享網(wǎng)址：http://m.5511xx.com/article/dhphdec.html
