关于正则表达式替换的问题

Strange

举例说明一下
如果现在有这个字符串
aaa=foo=ccc
我用
s/(.*)=.*=(.*)/$1=bar=$2/;
可以吧字符串替换成
aaa=bar=ccc
但是如果我把替换的内容先放到字符串里面的话
$a = $1=bar=$2;
然后
s/(.*)=.*=(.*)/$a/;
这样的话，$a里面的$1,$2就不会被替换了，结果是
$1=bar=$2
有没有办法把这种情况下的替换结果也能够和直接写在正则表达式里面一样啊？

莫愁

这样子就可以了：

1. D:\MoChou>cat lazy.pl
   
2. $_ = 'aaa=foo=ccc';
   
3. $a = '$1=bar=$2';
   
4. $_ = $` . eval qq("$a") . $' if m/(.*)=.*=(.*)/;
   
5. print "$_\n";
   
6. 
   
7. D:\MoChou>lazy
   
8. aaa=bar=ccc
   
9. 
   
10. D:\MoChou>

复制代码

[ 本帖最后由 莫愁 于 2006-5-15 16:51 编辑 ]

莫愁

也就是说，用下面这句

1. $_ = $` . eval qq("$a") . $' if m/(.*)=.*=(.*)/;

复制代码

来代替原来的这一句：

1. s/(.*)=.*=(.*)/$a/;

复制代码

tobyhoo

原帖由 Strange 于 2006-5-15 15:50 发表
举例说明一下
如果现在有这个字符串
aaa=foo=ccc
我用
s/(.*)=.*=(.*)/$1=bar=$2/;
可以吧字符串替换成
aaa=bar=ccc
但是如果我把替换的内容先放到字符串里面的话
$a = $1=bar=$2;
然后
s/(.*)=.*=(.*) ...

试试：s/(.*)=.*=(.*)/\1=bar=\2/;

Strange

感谢莫愁的办法

tobyhoo的办法好像没用的，按照perl文档里面写的，推荐使用$1来代替\1以便避免不必要的escape麻烦

莫愁

原帖由 Strange 于 2006-5-16 10:06 发表
感谢莫愁的办法

tobyhoo的办法好像没用的，按照perl文档里面写的，推荐使用$1来代替\1以便避免不必要的escape麻烦

刚又试了下，其实这样也行：

1. s/(.*)=.*=(.*)/eval qq("$a")/e;

复制代码

作为对比，帖出原文（错误，不能达到预期的效果）：

1. s/(.*)=.*=(.*)/$a/e;

复制代码