最近又在倒腾正则,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
)
(\1\b)
}
{\e[7m$1\e[m$2\e[7m$3\e[m}igx; #高亮的语法,\e[7m 和 \e[m
s/^(?:[^\e]*\n)+//mg;
s/^/$ARGV: /mg;
print;
}
上面效果图,嘿哈~
原文地址:https://www.jb51.cc/regex/357517.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。