[求测试]特殊字符匹配

本帖最后由 paktc 于 2010-12-24 20:21 编辑

我所在环境
perl, v5.10.1 built for MSWin32-x86-multi-thread


$str="a+b*c*d*e";
$str1="a+b";
$str2="c*d";
$str=~s/$str1//;
$str=~s/$str2//;
print "$str\n";
<STDIN>;


显示结果
a+b*c**e
现在不知道如何通过变量替换掉a+b了

s/a\+b//; 这样就可以，但是数据是从文本中读取的。

不知道大家在其他环境测试的结果如何，也许是我没学到这部分处理，多多指教。

================================================

刚刚又试了一下：
$str="a+b*c*d*e";
$str1="a+b";
$str1=~s/\+/\\\+/;
$str=~s/$str1//;
print "$str\n";
<STDIN>;

这样就OK， 但是为每一个元素都处理 "+" "*" "?"   也是一种消耗。

perl, v5.12.1 built for MSWin32-x86-multi-thread

显示结果
a+b*c**e