Chinaunix

标题: 关于正则表达式替换的问题 [打印本页]

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

作者: 莫愁 时间: 2006-05-15 16:49
这样子就可以了：

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

复制代码

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

作者: 莫愁 时间: 2006-05-15 16:50
也就是说，用下面这句

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

复制代码

来代替原来的这一句：

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

复制代码

作者: tobyhoo 时间: 2006-05-15 21:12

原帖由 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 时间: 2006-05-16 10:06
感谢莫愁的办法

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

作者: 莫愁 时间: 2006-05-16 10:21

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

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

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

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

复制代码

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

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

复制代码

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)