模式测试程序

常常用正则表达式进行模式匹配，不确定自己写的对不对时，可以先模式测试一下：

#!/usr/bin/perl -w use strict; while (<>){ chomp; if (/YOUR_PATTERN/){ print "Matched: |$`<$&>$'|/n"; } else { print "No match: |$_|/n"; } }

而如代码所示，perl提供了几个自动匹配变量：$`和$&和$'。

其中实际匹配模式的部分会自动存进$&里，而在它之前的字符串会存进$`里，在它之后的字符串会存进$'里。

我觉得每次写一个写的正则表达式时，先测一下会比较方便一些。