# 该测试程序可以测试写的正则表达式是否跟输入的字符串匹配
while (<>) {
chomp;
if (/YOUR_REGEXP/) {
print "Matched: |$`<$&>$'|/n";
}
else {
print "No match: |$_|/n";
}
}
# 该测试程序可以测试写的正则表达式是否跟输入的字符串匹配
while (<>) {
chomp;
if (/YOUR_REGEXP/) {
print "Matched: |$`<$&>$'|/n";
}
else {
print "No match: |$_|/n";
}
}