可用来检测某些字符串是否能被指定的模式匹配:
#!/usr/bin/perl
while (<>) { # 每次读一行输入, 可以考虑用文件输入或键盘输入
chomp;
if (/YOUR_PATTERN_GOES_HERE/) {
print "Matched: |$`<$&>$'|\n"; # 特殊匹配变量
} else {
print "No match: |$_|\n";
}
}
$`, $&, $'分别代表: 匹配之前所忽略部分, 匹配到的部分, 尚未匹配到的部分