正则中多次使用/e的问题

风吹不倒

大家好：
       有一个需求，从配置文件中读取字符串格式应用到正则表达式中，比如配置文件内容如下：

1. 
   
2. #cat file
   
3. (www)ops $1

复制代码

代码如下：

1. #!/usr/bin/perl -w
   
2. open FH,"file";
   
3. my $line =<FH>;
   
4. my ($old,$new)=split /\s+/,$line;
   
5. print "$old,$new\n";
   
6. $old = qr/$old/;
   
7. my $val = '0102wwwops';
   
8. print "before:\t$val\n";
   
9. $val =~ s/$old/$new/ee;
   
10. print "after:\t$val\n";

复制代码

就能将wwwops替换为www，但使用多个括号来替换时却不行

1. 
   
2. #cat file
   
3. (www)o(p)s $1$2

复制代码

我想将wwwops变为wwwp,但出现了报错，是何问题，请大侠们帮助！

1. 
   
2. Scalar found where operator expected at (eval 1) line 1, near "$1$2"
   
3.         (Missing operator before $2?)
   
4. Use of uninitialized value in substitution iterator at sep.pl line 9, <FH> line 1.
   

复制代码

zhlong8

$1$2 求值会发生什么事？ 中间应该有个 . 的

风吹不倒

回复 2# zhlong8


    原来如此，哈哈，非常谢谢~~