Perl 正則表達(dá)式

Perl 正則表達(dá)式

正則表達(dá)式(regular expression)描述了一種字符串匹配的模式，可以用來檢查一個(gè)串是否含有某種子串、將匹配的子串做替換或者從某個(gè)串中取出符合某個(gè)條件的子串等。

Perl語言的正則表達(dá)式功能非常強(qiáng)大，基本上是常用語言中最強(qiáng)大的，很多語言設(shè)計(jì)正則式支持的時(shí)候都參考Perl的正則表達(dá)式。

Perl的正則表達(dá)式的三種形式，分別是匹配，替換和轉(zhuǎn)化:

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

• 替換：s///

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

這三種形式一般都和 =~ 或 !~ 搭配使用， =~ 表示相匹配，!~ 表示不匹配。

匹配操作符

匹配操作符 m// 用于匹配一個(gè)字符串語句或者一個(gè)正則表達(dá)式，例如，要匹配 標(biāo)量 $bar 中的 "w3c",代碼如下所示：

#!/usr/bin/perl

$bar = "I am w3cschool site. welcome to w3cschool site.";
if ($bar =~ /w3c/){
   print "第一次匹配\n";
}else{
   print "第一次不匹配\n";
}

$bar = "w3c";
if ($bar =~ /w3c/){
   print "第二次匹配\n";
}else{
   print "第二次不匹配\n";
}

執(zhí)行以上程序，輸出結(jié)果為：

第一次匹配
第二次匹配

模式匹配修飾符

模式匹配有一些常用的修飾符，如下表所示：

正則表達(dá)式變量

perl處理完后會(huì)給匹配到的值存在三個(gè)特殊變量名:

• $`: 匹配部分的前一部分字符串
• $&: 匹配的字符串
• $': 還沒有匹配的剩余字符串

如果將這三個(gè)變量放在一起,你將得到原始字符串。

實(shí)例如下：

#!/usr/bin/perl

$string = "welcome to w3cschool site.";
$string =~ m/w3c/;
print "匹配前的字符串: $`\n";
print "匹配的字符串: $&\n";
print "匹配后的字符串: $'\n";

執(zhí)行以上程序輸出結(jié)果為：

匹配前的字符串: welcome to 
匹配的字符串: w3c
匹配后的字符串: school site.

替換操作符

替換操作符 s/// 是匹配操作符的擴(kuò)展，使用新的字符串替換指定的字符串。基本格式如下：

s/PATTERN/REPLACEMENT/;

PATTERN 為匹配模式，REPLACEMENT 為替換的字符串。

例如我們將以下字符串的 "google" 替換為 "w3cschool":

#!/usr/bin/perl

$string = "welcome to google site.";
$string =~ s/google/w3cschool/;

print "$string\n";

執(zhí)行以上程序輸出結(jié)果為：

welcome to w3cschool site.

替換操作修飾符

替換操作修飾符如下表所示：

轉(zhuǎn)化操作符

以下是轉(zhuǎn)化操作符相關(guān)的修飾符：

以下實(shí)例將變量 $string 中的所有小寫字母轉(zhuǎn)化為大寫字母：

#!/usr/bin/perl 

$string = 'welcome to w3cschool site.';
$string =~ tr/a-z/A-z/;

print "$string\n";

執(zhí)行以上程序輸出結(jié)果為：

WELCOME TO W3CSCHOOL SITE.

以下實(shí)例使用 /s 將變量 $string 重復(fù)的字符刪除：

#!/usr/bin/perl

$string = 'w3cschool';
$string =~ tr/a-z/a-z/s;

print "$string\n";

執(zhí)行以上程序輸出結(jié)果為：

w3cschol

更多實(shí)例：

$string =~ tr/\d/ /c;     # 把所有非數(shù)字字符替換為空格
$string =~ tr/\t //d;     # 刪除tab和空格
$string =~ tr/0-9/ /cs    # 把數(shù)字間的其它字符替換為一個(gè)空格。

更多正則表達(dá)式規(guī)則