国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > Perl > 正文

一個perl擴展正則表達式代碼分析

2020-10-31 15:17:47
字體:
來源:轉載
供稿:網友
復制代碼 代碼如下:

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的正則表達式,也就是不重復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";
}
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 保德县| 青阳县| 土默特右旗| 喜德县| 余干县| 澳门| 茶陵县| 忻州市| 鄂伦春自治旗| 多伦县| 嘉义市| 惠东县| 海城市| 宣武区| 德安县| 富源县| 承德市| 呼伦贝尔市| 灵山县| 巧家县| 深水埗区| 城步| 新巴尔虎左旗| 青川县| 无锡市| 苏尼特左旗| 宁晋县| 克拉玛依市| 繁峙县| 凌云县| 嘉兴市| 台山市| 宁河县| 平潭县| 合江县| 寿光市| 长子县| 金塔县| 大理市| 鄂托克前旗| 崇左市|