Perl正则表达式模式测试程序

可用来检测某些字符串是否能被指定的模式匹配:

#!/usr/bin/perl

while (<>) { # 每次读一行输入,可以考虑用文件输入或键盘输入

chomp;

if (/YOUR_PATTERN_GOES_HERE/) {

print "Matched:|$`<$&>$'|\n"; #特殊匹配变量

} else {

print "No match: |$_|\n";

}

}

$`, $&, $'分别代表: 匹配之前所忽略部分, 匹配到的部分,尚未匹配到的部分