最近又在倒腾正则,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;
}
上面效果图,嘿哈~