贊助廠商

娛樂城推薦

首頁

刊登資訊

  • 刊登者:匿名
  • 時間:2021-06-07 04:20:02

尚未解答Perl- 正規表示式置換

Perl- 正規表示式置換

兩個問題

第一個問題
$_=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
是我哪邊寫的不對?

拜託各位解答了,感謝

--

0個答案 Perl- 正規表示式置換

其他問題

友站連結