正则之点滴

最近又在倒腾正则，perl正则。不算最好的主意，毕竟perl本身在我的工作场景里基本没有。但是写的比较详尽的和正则有关的书籍，mastering regular expression确实可以带读者体会正则乐趣，而它又恰巧主要用perl代码展示正则用法。
以前搞不懂那么多正则转过一篇常用大全，以后还是想自己写写吧，嘿嘿。
下面是随手书中粘来的double word check 觉得好帅。巧妙的地方都注释了下，不早啦要睡啦啦啦啦～

$/ = ".n";

while (<>) {
    next unless s{
         b
         ([a-z]+)        #$1,first caught variable

         (
           (?:           #escape this,don't treat it as argument
              s
              |
              <[^>]+>
           )+            #need at least one of the above but allow more
         )

         (1b)
    }

{e[7m$1e[m$2e[7m$3e[m}igx; #高亮的语法，e[7m 和 e[m 

s/^(?:[^e]*n)+//mg;
s/^/$ARGV: /mg;
print;
}

上面效果图，嘿哈～

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!