Re: 想請教一下 perl 中的字串取代

[kornelius (Kornelius)]

我的方法是
用 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
推 LiloHuang:這個方式沒看過  thx :)
※ 編輯: kornelius       來自: 61.223.100.79        (09/22 01:28)