Re: 想請教一下 perl 中的字串取代
我的方法是
用 cpan 模組 String::Interpolate 來解決 replace string 的 Interpolate
my $replace = safe String::Interpolate 'c$1d';
my $pattern = qr/^a\/(.*)/;
$_ = 'a/bcde/f';
s/$pattern/$replace/eg; # /e supresses optimisation
print;
即可
----
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.223.100.79
推
09/22 01:27, , 1F
09/22 01:27, 1F
※ 編輯: kornelius 來自: 61.223.100.79 (09/22 01:28)
討論串 (同標題文章)
完整討論串 (本文為第 12 之 12 篇)：
Programming 近期熱門文章
PTT數位生活區 即時熱門文章
