windtear 追求完美

就是变量的内容怎么当成本身 别转义 (Kcore遇到的)
$pattern="a.*.b";
就是别把.*去匹配一堆 就是匹配 '.*' 这样的字符 也就是 \.\*

用 \Q \E 解决这件事 具体参见 perlop

$str ="ca.*.bc";
if($str=~/c\Q${pattern}\Ec/) {
print "ok\n";
}

顺带如果 $pattern 是stdin标准输入的
$pattern=<>;
要 chomp 一下
chomp($pattern);

Kcore思想的示意代码:
#!/usr/bin/perl
#

$pattern=<>;
chomp($pattern);
print $pattern."\n";

open(FILE,'<test.txt') || die "cant open test.txt";
while ($line=<FILE>) {
if ($line=~/\Q${pattern}\E/) {
print $line;
}
}

相关文章:
shell 脚本的注意事项: eval 转义 引号
http://windtear.net/archives/2007/07/24/001258.html
shell 折腾之 ${!varname} 实现级联调用
http://windtear.net/archives/2006/11/26/001146.html
eval 把参数组合成命令再执行
http://windtear.net/archives/2006/10/18/001115.html