Like Share Discussion Bookmark Smile

J.J. Huang   2021-06-09   Perl   瀏覽次數:

Perl - 第十九章 | Perl 正則表達式

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

Perl語言的正則表達式功能非常強大,基本上是常用語言中最強大的,很多語言設計正則式支持的時候都參考Perl的正則表達式。

Perl的正則表達式的三種形式,分別是匹配,替換和轉化:

  • 匹配:m//(還可以簡寫為//,略去m)
  • 替換:s///
  • 轉化:tr///

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

匹配操作符

匹配操作符 m// 用於匹配一個字符串語句或者一個正則表達式,例如,要匹配 標量 $bar 中的 “w3c”,程式碼如下所示:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl

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

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

執行以上程序,輸出結果為:

1
2
第一次匹配
第二次匹配

模式匹配修飾符

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

修飾符 描述
i 忽略模式中的大小寫
m 多行模式
o 僅賦值一次
s 單行模式,”.”匹配”\n”(預設不匹配)
x 忽略模式中的空白
g 全局匹配
cg 全局匹配失敗後,允許再次查找匹配串

正則表達式變量

perl處理完後會給匹配到的值存在三個特殊變量名:

  • $`: 匹配部分的前一部分字符串
  • $&: 匹配的字符串
  • $’: 還沒有匹配的剩餘字符串
    如果將這三個變量放在一起,你將得到原始字符串。

範例如下:

1
2
3
4
5
6
7
#!/usr/bin/perl

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

執行以上程序,輸出結果為:

1
2
3
匹配前的字符串: welcome to
匹配的字符串: Mor
匹配后的字符串: osedog site.

替換操作符

替換操作符 s/// 是匹配操作符的擴展,使用新的字符串替換指定的字符串。基本格式如下:

1
s/PATTERN/REPLACEMENT/;

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

例如我們將以下字符串的 “google” 替換為 “Morosedog”:

1
2
3
4
5
6
#!/usr/bin/perl

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

print "$string\n";

執行以上程序,輸出結果為:

1
welcome to Morosedog site.

替換操作修飾符

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

修飾符 描述
i 如果在修飾符中加上”i”,則正則將會取消大小寫敏感性,即”a”和”A” 是一樣的。
m 預設的正則開始”^”和結束”$”只是對於正則字符串如果在修飾符中加上”m”,那麼開始和結束將會指字符串的每一行:每一行的開頭就是”^” ,結尾就是”$”。
o 表達式只執行一次。
s 如果在修飾符中加入”s”,那麼預設的”.”代表除了換行符以外的任何字符將會變成任意字符,也就是包括換行符!
x 如果加上該修飾符,表達式中的空白字符將會被忽略,除非它已經被轉義。
g 替換所有匹配的字符串。
e 替換字符串作為表達式

轉化操作符

以下是轉化操作符相關的修飾符:

修飾符 描述
c 轉化所有未指定字符
d 刪除所有指定字符
s 把多個相同的輸出字符縮成一個

以下範例將變量 $string 中的所有小寫字母轉化為大寫字母:

1
2
3
4
5
6
#!/usr/bin/perl 

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

print "$string\n";

執行以上程序,輸出結果為:

1
WELCOME TO MOROSEDOG SITE.

以下範例使用 /s 將變量 $string 重複的字符刪除:

1
2
3
4
5
6
#!/usr/bin/perl

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

print "$string\n";

執行以上程序,輸出結果為:

1
Moro

更多範例:

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

更多正則表達式規則

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

註:以上參考了
Tutorialspoint, Perl - Regular Expressions