本文和大家重點(diǎn)討論一下Perl正則表達(dá)式的相關(guān)內(nèi)容，在學(xué)習(xí)Perl語(yǔ)言的過(guò)程中，Perl正則表達(dá)式問(wèn)題經(jīng)常會(huì)遇到，這里向大家介紹一下，希望通過(guò)本文的學(xué)習(xí)你對(duì)Perl正則表達(dá)式的概念有一定的認(rèn)識(shí)。

Perl正則表達(dá)式

更多的時(shí)候，我們可能不能使用默認(rèn)變量來(lái)進(jìn)行Perl正則表達(dá)式的匹配，所以Perl提供了一個(gè)專(zhuān)門(mén)的運(yùn)算符“=~”，它專(zhuān)門(mén)用來(lái)進(jìn)行Perl正則表達(dá)式的匹配。忽略大小寫(xiě)

#!/usr/bin/Perl-w  
$str="helloPerlworld!\n";  
if($str=~/Perl/i){###忽略大小寫(xiě)，匹配$str中是否存在Perl字符;  
print"$str";  
}  
 

 Perl中的Perl正則表達(dá)式還可以使用變量來(lái)動(dòng)態(tài)地改變匹配的模式，如：

1、字符串匹配

[root@test-linuxtmp]#catp.pl  
#!/usr/bin/Perl-w  
$str="helloPerlprogram!\n";  
print"youinputis:\n";  
$input=<STDIN>;  
chomp($input);  
if($str=~/$input/i){  
print"haha,find$str\n";  
}  
[root@test-linuxtmp]#./p.pl  
youinputis:  
hel  
haha,findhelloPerlprogram!  
[root@test-linuxtmp]#  
 

 2、字符串替換

[root@test-linuxtmp]#./pap.pl  
oldstringis:helloPerlWorld!  
newstringis:helloPerlNewWorld!  
[root@test-linuxtmp]#  
[root@test-linuxtmp]#catpap.pl  
#!/usr/bin/Perl-w  
$_="helloPerlWorld!\n";  
print"oldstringis:$_";  
s/Perl/PerlNew/g;  
print"newstringis:$_";  
 

 【編輯推薦】

1. Perl正則表達(dá)式內(nèi)容盤(pán)點(diǎn)
2. 解析Perl正則表達(dá)式的形式、模式和原則
3. 解析兩大Perl標(biāo)量的操作符
4. Perl正則表達(dá)式的三種形式
5. 全面認(rèn)識(shí)Perl正則表達(dá)式使用