作者jacky1989 ()
看板Perl
标题[问题] 正规表示式置换
时间Tue Feb 11 00:38:45 2020
两个问题
第一个问题
$_=abc(.apple(bb),.orange(aa));
原字串大概长这样
今天我要把orange取代掉
if($_ =~ /([,]*\.orange\(\w*\))[,]*/){
$_ =~ s/$1/\/\*$1\*\//;
print "$_";
}
原本预期新的字串要长这样
abc(.apple(bb)/*,.orange(aa)*/);
可是实际上却没有变，还是原来的字串，怎麽会这样子?
我该怎麽改呢?
第二个问题
$_ = abc(.apple(bb),.orange(aa));
我要把orange去掉
if($_ =~ /([,]*\.orange\(\w*\))[,]*/){
$_ =~ s/$1//;
print "$_";
}
这个直接报错
Unmatched ')' in regex; marked by <— HERE in
是我哪边写的不对?
拜托各位解答了，感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 180.176.11.43 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Perl/M.1581352728.A.150.html