perl 模式匹配小程序

编写Perl程序的时候，免不了使用正则表达式，但有时候匹配错误，下面的小程序可以使程序探测模式匹配的结果。

#!/usr/bin/perlwhile (<>) {                    #每次读一行输入　chomp;   if ( //YOUR PATTERN) {       print "Matched: |$` <$&> $'|\n"; //特殊捕获变量   } else {        print "Npo match: |$_|\n";   }}