一個perl擴充Regex程式碼分析

來源:互聯網
上載者:User

複製代碼 代碼如下:my $ip = "192.168.0.1|192.168.0.2|192.168.0.1";
if ( $ip =~ /
^
(?:
((?:\d{1,3}\.){3}\d{1,3})
(?=
(?:
\|(?!\1)(?1)
)*
\z
)
\|
)*
(?1)
$
/x ) {
print "match\n";
}

根據perlre文檔的說明,一點一點解釋。 首先是/x,用這個來去除regex裡的空格,不然的話寫在一行太難看懂了; 然後是^,表示從最開頭開始; 然後是(?:,這個表示本括弧不記入反向引用$&中; 然後是((?:\d{1,3}.){3}\d{1,3}),同樣裡面一個(?:,也就是說這一行匹配一個ip,並計為$1; 然後是(?=,這個表示在上面那行ip的正則後面必須出現符合本括弧定義,同樣也不計入$&(術語叫”零寬肯定前向斷言”是吧?); 然後一個隔開ip的|; 然後是(?!,這個表示本括弧內的東西絕對不能出現,同樣也不計入$&(術語叫”零寬否定前向斷言”是吧?); 然後是\1,這個就是前面捕獲的$1,跟上行解釋的斷言合在一起,就是|後面不能有和前面匹配的ip重複; 然後是(?1,這個表示前面捕獲$1的Regex,也就是不重複ip的情況下,繼續捕獲新ip; 然後是),這個)閉合到|前面的(?:,也就是說|ip可以重複多個; 然後是\z,這個是字串邊界,相當於單行裡$的作用,在本例中可以互換,用在這裡,就是為了讓(?!\1)的檢查一直執行到最後; 然後是),閉合(?=; 然後是|和),這裡閉合到^(,表示符合不重複ip條件的ip|格式不斷正則匹配; 然後是(?1)$,定義最後一個ip,使用和$1相同的正則,也就是字串至少要有一個ip。 OK,解釋完畢。其實,從後往前看,反而清晰一些~~ 另:perlre中在(??{CODE})段的表述中有如下一段話“In perl 5.12.x and earlier, because the regex engine was not re-entrant, delayed code could not safely invoke the regex engine either directly with “m//” or “s///”), or indirectly with functions such as “split”.”,而(?R)和(??{CODE})做的是類似而簡單的任務,所以如果linux發行版裡帶的perl版本不夠高的話,這裡就不能用(?1)的簡單寫法,需要自己再寫一遍了。可以這麼判斷:複製代碼 代碼如下:my $re = $^V lt v5.14 ? '(?:\d{1,3}\.?){4}' : '(?1)';
my $ip = "192.168.0.1|192.168.0.2|192.168.0.3|192.168.0.4|192.168.0.5";
if ( $ip =~ m/
^
(?:
((?:\d{1,3}\.?){4})
(?=
(?:
\|(?!\1)$re
)*
\z
)
\|
)*
$re
$
/x ) {
print "$1 match\n";
}

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.