结合一下正则替换和 y 操作符： $_ = q/love Love LOVE lOVe LOVe lOVE lovE loVE/;
s/\b(?![A-Z]+\b)\w\K(\w+)/lc($1)/eg && y/loveLOVE/testTEST/; print $_; 2011/2/28 Kermit <[email protected]> > On Mon, 2011-02-28 at 09:14 +0800, zwg.zero wrote: > > 我的思路是： 第一步把匹配“LOVE”（全大写的）替换为“TEST”； > > 第二步把匹配“L"ove (首字符l大写，后面字符不 > > 管大小写)替换为“Test”； > > 第三步把匹配 "love"(不管大小写)都替换 > > 为“test”。 > > > 我也是这个思路，就是不知到怎么用最Perl的方式写出来。我那个写法太罗嗦了。 > 最好能有一句实现的那种。 > > > > On 02/25/2011 10:23 PM, zesheng wang wrote: > > > $loveStr =~ s/(l)ove/@{[$1 eq 'L'?'T':'t']}est/gi; > > > 不知道你是不是要这个效果？ > > > > > > 在 2011年2月25日 下午6:17，Achilles Xu <[email protected]>写 道： > > > 上面的方法也不是一无是处，可以先把foreach里的代码简化了。至 > > > 于怎么一句实现，我再想想。 > > > > > > > > > $loveStr = q/love LOVE Love lOVe LOve loVE/; > > > print $loveStr."\n"; > > > foreach my $en ($loveStr =~ m/love/ig) { > > > > > > $en2 = $en; > > > $en2 =~ tr/loveLOVE/testTEST/; > > > $loveStr =~ s/$en/$en2/g; > > > } > > > print $loveStr."\n"; > > > > > > > > > 在 2011年2月25日 下午6:11，Achilles Xu > > > <[email protected]>写 道： > > > > > > 呵呵，上面这个是错的，一时没考虑清楚，手快给发了。我 > > > 再想想。 > > > > > > 在 2011年2月25日 下午6:10，Achilles Xu > > > <[email protected]>写 道： > > > > > > tr/loveLOVE/testTEST/; > > > > -- 您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。 要向此网上论坛发帖，请发送电子邮件至 [email protected]。 要取消订阅此网上论坛，请发送电子邮件至 [email protected]。 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
