perl中的正則匹配

2021-07-27 17:20:17 字數 4983 閱讀 9299

一、簡介

模式指在字串中尋找的特定序列的字元,由反斜線包含:/def/即模式def。其用法如結合函式split將字串用某模式分成多個單詞:@array = split(/ /, $line);

二、匹配操作

匹配操作符 =~、!~

=~檢驗匹配是否成功:$result = $var =~ /abc/;若在該字串中找到了該模式,則返回非零值,即true,不匹配則返回0,即false。!~則相反。

這兩個操作符適於條件控制中,如:

if ($question =~ /please/)

else

三、模式中的特殊字元

perl在模式中支援一些特殊字元,可以起到一些特殊的作用。

1、字元

意味著乙個或多個相同的字元,如:/de f/指def、deef、deeeeef等。它盡量匹配盡可能多的相同字元,如/ab /在字串abbc中匹配的將是abb,而不是ab。

當一行中各單詞間的空格多於乙個時,可以如下分割:

@array = split (/ /, $line);

注:split函式每次遇到分割模式,總是開始乙個新單詞,因此若$line以空格打頭,則@array的第乙個元素即為空元素。但其可以區分是否真有單詞,如若$line中只有空格,則@array則為空陣列。且上例中tab字元被當作乙個單詞。注意修正。

2、字元 和[^]

意味著匹配一組字元中的乙個,如/a[0123456789]c/將匹配a加數字加c的字串。與 聯合使用例:/d[ee] f/匹配def、def、deef、dedf、deeeeeeeef等。^表示除其之外的所有字元,如:/d[^dee]f/匹配d加非e字元加f的字元 串。

3、字元 *和?

它們與 類似,區別在於*匹配0個、1個或多個相同字元,?匹配0個或1個該字元,+告訴引擎匹配前導字元1次或多次。如/de*f/匹配df、def、deeeef等;/de?f/匹配df或def。

4、轉義字元

如果你想在模式中包含通常被看作特殊意義的字元,須在其前加斜線"\"。如:/\* /中\*即表示字元*,而不是上面提到的乙個或多個字元的含義。斜線的表示為/\\/。在perl5中可用字元對\q和\e來轉義。

5、匹配任意字母或數字

上面提到模式/a[0123456789]c/匹配字母a加任意數字加c的字串,另一種表示方法為:/a[0-9]c/,類似的,[a-z]表示任意小寫字母,[a-z]表示任意大寫字母。任意大小寫字母、數字的表示方法為:/[0-9a-za-z]/。

6、錨模式

錨 描述

^ 或 \a 僅匹配串首

$ 或 \z 僅匹配串尾

\b 匹配單詞邊界

\b 單詞內部匹配

例1:/^def/只匹配以def打頭的字串,/$def/只匹配以def結尾的字串,結合起來的/^def$/只匹配字串def(?)。\a和\z在多行匹配時與^和$不同。

例2:檢驗變數名的型別:

if ($varname =~ /^\$[a-za-z][_0-9a-za-z]*$/) elsif ($varname =~ /^@[a-za-z][_0-9a-za-z]*$/) elsif ($varname =~ /^[a-za-z][_0-9a-za-z]*$/) else

例 3:\b在單詞邊界匹配:/\bdef/匹配def和defghi等以def打頭的單詞,但不匹配abcdef。/def\b/匹配def和 abcdef等以def結尾的單詞,但不匹配defghi,/\bdef\b/只匹配字串def。注意:/\bdef/可匹配$defghi,因為$並 不被看作是單詞的部分。

例4:\b在單詞內部匹配:/\bdef/匹配abcdef等,但不匹配def;/def\b/匹配defghi等;/\bdef\b/匹配cdefg、abcdefghi等,但不匹配def,defghi,abcdef。

7、模式中的變數替換

將句子分成單詞:

$pattern = "[\\t ] ";

@words = split(/$pattern/, $line);

8、字元範圍轉義

e 轉義字元 描述 範圍

\d 任意數字 [0-9]

\d 除數字外的任意字元 [^0-9]

\w 任意單詞字元 [_0-9a-za-z]

\w 任意非單詞字元 [^_0-9a-za-z]

\s 空白 [ \r\t\n\f]

\s 非空白 [^ \r\t\n\f]

例:/[\da-z]/匹配任意數字或小寫字母。

9、匹配任意字元

字元"."匹配除換行外的所有字元,通常與*合用。

10、匹配指定數目的字元

字元對{}指定所匹配字元的出現次數。如:/def/匹配def,deef和deeef;/def/匹配deeef;/def/匹配不少於3個e在d和f之間;/def/匹配不多於3個e在d和f之間。

11、指定選項

字元"|"指定兩個或多個選擇來匹配模式。如:/def|ghi/匹配def或ghi。

例:檢驗數字表示合法性

if ($number =~ /^-?\d $|^-?0[xx][\da-fa-f] $/) else

其中 ^-?\d $ 匹配十進位制數字,^-?0[xx][\da-fa-f] $ 匹配十六進製制數字。

12、模式的部分重用

當模式中匹配相同的部分出現多次時,可用括號括起來,後面用\n來多次引用,以簡化表示式:

/\d([\w])\d\1\d/ 匹配:

12-05-92

26.11.87

07 04 92等

注意:/\d([\w])\d\1\d/ 不同於/(\d)([\w])\1\2\1/ ,後者只匹配形如17-17-17的字串,而不匹配17-05-91等。

在/\d([\w])\d\1\d/中,\1代表}([\w]), 而在/(\d)([\w])\1\2\1/中,\1代表(\d),\2代表([\w])。

13、轉義和特定字元的執行次序

象操作符一樣,轉義和特定字元也有執行次序:

特殊字元 描述

() 模式記憶體 ,可以在後面使用\n來使用。

* ? {} 出現次數

^ $ \b \b 錨

| 選項

14、指定模式定界符

預設的,模式定界符為反斜線/,但其可用字母m自行指定,如:

m!/u/jqpublic/perl/prog1! 等價於/\/u\/jqpublic\/perl\/prog1/

注:當用字母作為定界符時,不做變數替換;當用特殊字元作為定界符時,其轉義功能或特殊功能即不能使用。

15、模式次序變數

在模式匹配後呼叫重用部分的結果可用變數$n,全部的結果用變數$&。

$string = "this string contains the number 25.11.";

$string =~ /-?(\d )\.?(\d )/; # 匹配結果為25.11

$integerpart = $1; # now $integerpart = 25

$decimalpart = $2; # now $decimalpart = 11

$totalpart = $&; # now totalpart = 25.11

例項:$lastlabel =~ /$labelletter((\d\d\d)(\.\d\d\d)?)([a-z]?)/i

# ex: for 031.100a

# $1 = 031.100, $2 = 031, $3 = .100, $4 = a

四、模式匹配選項

選項 描述

g 匹配所有可能的模式

i 忽略大小寫

m 將串視為多行

o 只賦值一次

s 將串視為單行

x 忽略模式中的空白

1、匹配所有可能的模式(g選項)

@matches = "balata" =~ /.a/g; # now @matches = ("ba", "la", "ta")

匹配的迴圈:

while ("balata" =~ /.a/g)

結果為:

bala

ta當使用了選項g時,可用函式pos來控制下次匹配的偏移:

$offset = pos($string);

pos($string) = $newoffset;

2、忽略大小寫(i選項)例

/de/i 匹配de,de,de和de。

3、將字串看作多行(m選項)

在此情況下,^符號匹配字串的起始或新的一行的起始;$符號匹配任意行的末尾。

4、只執行一次變數替換例

$var = 1;

$line = ;

while ($var < 10)

每次均匹配/1/。

5、將字串看作單行例

/a.*bc/s匹配字串a***xx \n***xbc,但/a.*bc/則不匹配該字串。

6、在模式中忽略空格

/\d ([\w]) \d \1 \d/x等價於/\d([\w])\d\1\d/。

五、替換操作符

語法為s/pattern/replacement/,其效果為將字串中與pattern匹配的部分換成replacement。如:

$string = "abc123def";

$string =~ s/123/456/; # now $string = "abc456def";

在替換部分可使用模式次序變數$n,如s/(\d )/[$1]/,但在替換部分不支援模式的特殊字元,如{},*, 等,如s/abc/[def]/將把abc替換為[def]。

替換操作符的選項如下表:

選項 描述

g 改變模式中的所有匹配

i 忽略模式中的大小寫

e 替換字串作為表示式

m 將待匹配串視為多行

o 僅賦值一次

s 將待匹配串視為單行

x 忽略模式中的空白

注:e選項把替換部分的字串看作表示式,在替換之前先計算其值,如:

$string = "0abc1";

$string =~ s/[a-za-z] /$& x 2/e; # now $string = "0abcabc1"

perl正則匹配

字元的種類是一定的,無非是空格,數字,大小寫字母,和perl中定義的元字元,還有本國語言。所以原則上任何格式的字元都能匹配。匹配工具 選擇符號,關鍵字,量詞,斷言,轉義字元 當出現多個字元組成的 非空格字元時候,例如123,45 3 s sdgg 則使用 0 9a za z 若加上 則只能匹配一行中...

Perl 正則匹配經驗記錄

0.正則匹配字典 1.重新定義字串分隔符為 2.perl 中 ms,msg,gms是什麼意思?正規表示式中,msg和 gms意思一樣。g表示找出字串中所有匹配的部分,如 x cat dog house words x w g 結果 word 0 cat word 1 dog word 2 house...

Perl 正則匹配 對分詞標註結果正則匹配

3 a 中文編碼 從資料夾讀檔案 問原文標記還是輸出歧義句子 寫檔案的時候每次檔案名字加一 之前有處理過分檔案 b 提取 w w w 之前的中文句子進行判斷 c 判斷分為幾個情況 含有 k 無操作 含有 ni 無操作 只要含有 d r c 有歧義 開頭含有 v u p 1 v u p 開頭含有 m ...