久久久无码人妻精品一区,欧美aa免费在线,精品国产sm最大网站免费看

復(fù)制代碼代碼如下:

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";
}

根據(jù)perlre文檔的說(shuō)明，一點(diǎn)一點(diǎn)解釋。首先是/x，用這個(gè)來(lái)去除regex里的空格，不然的話(huà)寫(xiě)在一行太難看懂了；然后是^，表示從最開(kāi)頭開(kāi)始；然后是(?:，這個(gè)表示本括號(hào)不記入反向引用$中；然后是((?:\d{1,3}.){3}\d{1,3})，同樣里面一個(gè)(?:，也就是說(shuō)這一行匹配一個(gè)ip，并計(jì)為$1；然后是(?=，這個(gè)表示在上面那行ip的正則后面必須出現(xiàn)符合本括號(hào)定義，同樣也不計(jì)入$（術(shù)語(yǔ)叫”零寬肯定前向斷言”是吧？）；然后一個(gè)隔開(kāi)ip的|；然后是(?!，這個(gè)表示本括號(hào)內(nèi)的東西絕對(duì)不能出現(xiàn)，同樣也不計(jì)入$（術(shù)語(yǔ)叫”零寬否定前向斷言”是吧？）；然后是\1，這個(gè)就是前面捕獲的$1，跟上行解釋的斷言合在一起，就是|后面不能有和前面匹配的ip重復(fù)；然后是(?1，這個(gè)表示前面捕獲$1的正則表達(dá)式，也就是不重復(fù)ip的情況下，繼續(xù)捕獲新ip；然后是)，這個(gè))閉合到|前面的(?:，也就是說(shuō)|ip可以重復(fù)多個(gè)；然后是\z，這個(gè)是字符串邊界，相當(dāng)于單行里$的作用，在本例中可以互換，用在這里，就是為了讓(?!\1)的檢查一直執(zhí)行到最后；然后是)，閉合(?=；然后是|和)，這里閉合到^(，表示符合不重復(fù)ip條件的ip|格式不斷正則匹配；然后是(?1)$，定義最后一個(gè)ip，使用和$1相同的正則，也就是字符串至少要有一個(gè)ip。 OK，解釋完畢。其實(shí)，從后往前看，反而清晰一些~~ 另：perlre中在(??{CODE})段的表述中有如下一段話(huà)“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})做的是類(lèi)似而簡(jiǎn)單的任務(wù)，所以如果linux發(fā)行版里帶的perl版本不夠高的話(huà)，這里就不能用(?1)的簡(jiǎn)單寫(xiě)法，需要自己再寫(xiě)一遍了。可以這么判斷：

復(fù)制代碼代碼如下:

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";
}

您可能感興趣的文章:

PERL 正則表達(dá)式詳細(xì)說(shuō)明
Perl中的正則表達(dá)式介紹
關(guān)于Perl里面正則表達(dá)式規(guī)范
POSIX 風(fēng)格和兼容 Perl 風(fēng)格兩種正則表達(dá)式主要函數(shù)的類(lèi)比(preg_match, preg_replace, ereg, ereg_replace)
解析posix與perl標(biāo)準(zhǔn)的正則表達(dá)式區(qū)別
在PHP中使用與Perl兼容的正則表達(dá)式
有關(guān)perl正則表達(dá)式的一些雜項(xiàng)
PHP中基于perl的正則表達(dá)式處理函數(shù)
強(qiáng)大的Perl正則表達(dá)式實(shí)例詳解

標(biāo)簽：秦皇島周口綿陽(yáng) 綏化百色淮安合肥周口

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《一個(gè)perl擴(kuò)展正則表達(dá)式代碼分析》，本文關(guān)鍵詞一個(gè),perl,擴(kuò)展,正則,表達(dá)式,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。