日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

本文和大家重點(diǎn)討論一下Perl正則表達(dá)式的概念，Perl正則表達(dá)式是Perl語(yǔ)言的一大特色，也是Perl程序中的一點(diǎn)難點(diǎn)，下面我們列出一些Perl正則表達(dá)式書(shū)寫(xiě)時(shí)的一些基本語(yǔ)法規(guī)則，歡迎大家一起來(lái)學(xué)習(xí)。

成都網(wǎng)站建設(shè)哪家好，找成都創(chuàng)新互聯(lián)公司！專(zhuān)注于網(wǎng)頁(yè)設(shè)計(jì)、成都網(wǎng)站建設(shè)公司、微信開(kāi)發(fā)、微信小程序、集團(tuán)企業(yè)網(wǎng)站制作等服務(wù)項(xiàng)目。核心團(tuán)隊(duì)均擁有互聯(lián)網(wǎng)行業(yè)多年經(jīng)驗(yàn)，服務(wù)眾多知名企業(yè)客戶；涵蓋的客戶類(lèi)型包括：門(mén)窗定制等眾多領(lǐng)域，積累了大量豐富的經(jīng)驗(yàn)，同時(shí)也獲得了客戶的一致稱(chēng)贊！

Perl語(yǔ)言中的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ū)寫(xiě)時(shí)的一些基本語(yǔ)法規(guī)則。

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

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

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

匹配：m/;/（還可以簡(jiǎn)寫(xiě)為/;/，略去m）

替換：s/;/;/

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

這三種形式一般都和=~或!~搭配使用（其中"=~"表示相匹配，在整條語(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中的所有大寫(xiě)字母轉(zhuǎn)化為小寫(xiě)字母，如果轉(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ì)顯示后面的提示信息。

1.2Perl正則表達(dá)式中的常用模式

下面是Perl正則表達(dá)式中的一些常用模式。

/pattern/結(jié)果
.匹配除換行符以外的所有字符
x?匹配0次或一次x字符串
x*匹配0次或多次x字符串，但匹配可能的最少次數(shù)
x+匹配1次或多次x字符串，但匹配可能的最少次數(shù)
.*匹配0次或一次的任何字符
.+匹配1次或多次的任何字符
{m}匹配剛好是m個(gè)的指定字符串
{m,n}匹配在m個(gè)以上n個(gè)以下的指定字符串
{m,}匹配m個(gè)以上的指定字符串
[]匹配符合[]內(nèi)的字符
[^]匹配不符合[]內(nèi)的字符
[0-1]匹配所有數(shù)字字符
[a-z]匹配所有小寫(xiě)字母字符
[^0-1]匹配所有非數(shù)字字符
[^a-z]匹配所有非小寫(xiě)字母字符
^匹配字符開(kāi)頭的字符
$匹配字符結(jié)尾的字符
\d匹配一個(gè)數(shù)字的字符，和[0-1]語(yǔ)法一樣
\d+匹配多個(gè)數(shù)字字符串，和[0-1]+語(yǔ)法一樣
\D非數(shù)字，其他同\d
\D+非數(shù)字，其他同\d+
\w英文字母或數(shù)字的字符串，和[a-zA-Z0-1]語(yǔ)法一樣
\w+和[a-zA-Z0-1]+語(yǔ)法一樣
\W非英文字母或數(shù)字的字符串，和[^a-zA-Z0-1]語(yǔ)法一樣
\W+和[^a-zA-Z0-1]+語(yǔ)法一樣
\s空格，和[\n\t\r\f]語(yǔ)法一樣
\s+和[\n\t\r\f]+一樣
\S非空格，和[^\n\t\r\f]語(yǔ)法一樣
\S+和[^\n\t\r\f]+語(yǔ)法一樣
\b匹配以英文字母,數(shù)字為邊界的字符串
\B匹配不以英文字母,數(shù)值為邊界的字符串
a|b|c匹配符合a字符或是b字符或是c字符的字符串
abc匹配含有abc的字符串
(pattern)()這個(gè)符號(hào)會(huì)記住所找尋到的字符串，是一個(gè)很實(shí)用的語(yǔ)法。第一個(gè)()內(nèi)所找到的字符串變成$1這個(gè)變量或是\1變量，第二個(gè)()內(nèi)所找到的字符串變成$2這個(gè)變量或是\2變量，以此類(lèi)推下去。
/pattern/ii這個(gè)參數(shù)表示忽略英文大小寫(xiě)，也就是在匹配字符串的時(shí)候，不考慮英文的大小寫(xiě)問(wèn)題。
\如果要在pattern模式中找尋一個(gè)特殊字符，如"*"，則要在這個(gè)字符前加上\符號(hào)，這樣才會(huì)讓特殊字符失效

下面給出一些例子：

范例說(shuō)明
/perl/找到含有perl的字符串
/^perl/找到開(kāi)頭是perl的字符串
/perl$/找到結(jié)尾是perl的字符串
/c|g|i/找到含有c或g或i的字符串
/cg{2,4}i/找到c后面跟著2個(gè)到4個(gè)g，再跟著i的字符串
/cg{2,}i/找到c后面跟著2個(gè)以上g，再跟著i的字符串
/cg{2}i/找到c后面跟著2個(gè)g，再跟著i的字符串
/cg*i/找到c后面跟著0個(gè)或多個(gè)g，再跟著i的字符串，如同/cg{0,1}i/
/cg+i/找到c后面跟著一個(gè)以上g，再跟著i的字符串，如同/cg{1,}i/
/cg?i/找到c后面跟著0個(gè)或是1個(gè)g，再跟著i的字符串，如同/cg{0,1}i/
/c.i/找到c后面跟著一個(gè)任意字符，再跟著i的字符串
/c..i/找到c后面跟著二個(gè)任意字符，再跟著i的字符串
/[cgi]/找到符合有這三個(gè)字符任意一個(gè)的字符串
/[^cgi]/找到?jīng)]有這三個(gè)字符中任意一個(gè)的字符串
/\d/找尋符合數(shù)字的字符，可以使用/\d+/來(lái)表示一個(gè)或是多個(gè)數(shù)字組成的字符串
/\D/找尋符合不是數(shù)字的字符，可以使用/\D+/來(lái)表示一個(gè)或是更多個(gè)非數(shù)字組成的字符串
/\*/找尋符合*這個(gè)字符，因?yàn)?在常規(guī)表達(dá)式中有它的特殊意思，所以要在這個(gè)特殊符號(hào)前加上\符號(hào)，這樣才會(huì)讓這個(gè)特殊字符失效
/abc/i找尋符合abc的字符串而且不考慮這些字符串的大小寫(xiě)

1.3Perl正則表達(dá)式的八大原則

　　如果在Unix中曾經(jīng)使用過(guò)sed、awk、grep這些命令的話，相信對(duì)于Perl語(yǔ)言中的Perl正則表達(dá)式(RegularExpression)不會(huì)感到陌生。Perl語(yǔ)言由于有這個(gè)功能，所以對(duì)字符串的處理能力非常強(qiáng)。在Perl語(yǔ)言的程序中，經(jīng)?？梢钥吹絇erl正則表達(dá)式的運(yùn)用，在CGI程序設(shè)計(jì)中也不例外。

　　Perl正則表達(dá)式是初學(xué)Perl的難點(diǎn)所在，不過(guò)只要一旦掌握其語(yǔ)法，你就可以擁有幾乎無(wú)限的模式匹配能力，而且Perl編程的大部分工作都是掌握常規(guī)表達(dá)式。下面給大家介紹幾條Perl正則表達(dá)式使用過(guò)程中的8大原則。

　　Perl正則表達(dá)式在對(duì)付數(shù)據(jù)的戰(zhàn)斗中可形成龐大的聯(lián)盟——這常常是一場(chǎng)戰(zhàn)爭(zhēng)。我們要記住下面八條原則：

◆原則1：Perl正則表達(dá)式有三種不同形式(匹配(m//)，替換(s///eg)和轉(zhuǎn)換(tr///))。

◆原則2：Perl正則表達(dá)式僅對(duì)標(biāo)量進(jìn)行匹配($scalar=~m/a/;可以工作;@array=~m/a/將把@array作為標(biāo)量對(duì)待，因此可能不會(huì)成功)。

◆原則3：Perl正則表達(dá)式匹配一個(gè)給定模式的最早的可能匹配。缺省時(shí)，僅匹配或替換Perl正則表達(dá)式一次($a='stringstring2';$a=~s/string//;導(dǎo)致$a='string2')。

◆原則4：Perl正則表達(dá)式能夠處理雙引號(hào)所能處理的任意和全部字符($a=~m/$varb/在匹配前把varb擴(kuò)展為變量；如果$varb='a'$a='as'，$a=~s/$varb//;等價(jià)于$a=~s/a//;，執(zhí)行結(jié)果使$a="s")。

◆原則5：Perl正則表達(dá)式在求值過(guò)程中產(chǎn)生兩種情況：結(jié)果狀態(tài)和反向引用：$a=~m/pattern/表示$a中是否有子串pattern出現(xiàn)，$a=~s/(word1)(word2)/$2$1/則“調(diào)換”這兩個(gè)單詞。

◆原則6：Perl正則表達(dá)式的核心能力在于通配符和多重匹配運(yùn)算符以及它們?nèi)绾尾僮鳌?a=~m/\w+/匹配一個(gè)或多個(gè)單詞字符；$a=~m/\d/"匹配零個(gè)或多個(gè)數(shù)字。

◆原則7：如果欲匹配不止一個(gè)字符集合，Perl使用"|"來(lái)增加靈活性。如果輸入m/(cat|dog)/則相當(dāng)于“匹配字符串cat或者dog。

◆原則8：Perl用(?..)語(yǔ)法給Perl正則表達(dá)式提供擴(kuò)展功能。（這一點(diǎn)請(qǐng)同學(xué)們課后看相關(guān)資料）

想要學(xué)習(xí)所有這些原則？我建議大家先從簡(jiǎn)單的開(kāi)始，并且不斷的嘗試和實(shí)驗(yàn)。實(shí)際上如果學(xué)會(huì)了$a=~m/ERROR/是在$a中查找子串ERROR，那么你就已經(jīng)比在C這樣的低層語(yǔ)言中得到了更大的處理能力。