[問題] 正規表示式置換
兩個問題
第一個問題
$_=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://www.ptt.cc/bbs/Perl/M.1581352728.A.150.html
推
02/11 01:56,
4年前
, 1F
02/11 01:56, 1F
討論串 (同標題文章)
完整討論串 (本文為第 1 之 2 篇)：
1
1
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
