编写Perl程序的时候,免不了使用正则表达式,但有时候匹配错误,下面的小程序可以使程序探测模式匹配的结果。
#!/usr/bin/perl
while (<>) { #每次读一行输入
chomp;
if ( //YOUR PATTERN) {
print "Matched: |$` <$&> $'|\n"; //特殊捕获变量
} else {
print "Npo match: |$_|\n";
}
}
编写Perl程序的时候,免不了使用正则表达式,但有时候匹配错误,下面的小程序可以使程序探测模式匹配的结果。
#!/usr/bin/perl
while (<>) { #每次读一行输入
chomp;
if ( //YOUR PATTERN) {
print "Matched: |$` <$&> $'|\n"; //特殊捕获变量
} else {
print "Npo match: |$_|\n";
}
}