perl中一正则表达式关于字符穿替换的问题

xuyong_32

UID: 1611
帖子: 3
积分: 6
在线时间: 10 分钟

1^# xuyong_32 发表于 2008-12-20 00:10

perl中一正则表达式关于字符穿替换的问题

perl中一正则表达式关于字符穿替换的问题
在一行字符串中,将其中的字符串fred替换为wilma,wilma替换为fred.
不知道该怎么同时进行两个替换,请高手指点下,或者分两次替换,但是前一次结果对后一次有影响啊.

thanatos

UID: 24438
帖子: 119
积分: 273
在线时间: 19 小时

2^# thanatos 发表于 2008-12-20 09:28

可以利用圆括号的记忆功能
可以利用圆括号的记忆功能
$_="I thought you said Fred and Barney";
print "it was |$_|\n";
s#(Fred)(.*?)(Barney)#$3$2$1#g;
print "It is |$_|";
在这里结果就是Fred和Barney反回来!

xuyong_32

UID: 1611
帖子: 3
积分: 6
在线时间: 10 分钟

3^# xuyong_32 发表于 2008-12-20 13:15

谢谢!给了我很大启发
不过你给的答案里面设定了两个单词的顺序.这样可能造成遗漏.

thanatos

UID: 24438
帖子: 119
积分: 273
在线时间: 19 小时

4^# thanatos 发表于 2008-12-24 17:52

如果模式变成这样呢？
如果模式变成这样呢：
s#(Fred|Barney)(.*?)(Barney|Fred)#$3$2$1#g;

xuyong_32

UID: 1611
帖子: 3
积分: 6
在线时间: 10 分钟

5^# xuyong_32 发表于 2008-12-24 23:02

你没明白我的意思
不需要两个都有,只有其中一个也要替换的.
所以前面的模式里只需要(Fred|Barney)就可以了