Re: 想請教一下 perl 中的字串取代
※ 引述《kornelius (Kornelius)》之銘言：
: 的確，若只是單純使用 s/foo/$1/ee 是可
: 不過若是 c$1d 這類，則不屬 statement，所以 double eval 無法使用
: 不過，你想得到不用整塊 eval 的方法嗎？ @@?
順便提供一下不用 eval 區塊的另一個方法 :)
my $string = 'a/bcde/f';
my $pattern = '^a\/(.*)';
my $replace = sub { "c$1d" };
$string =~ s/$pattern/&$replace/e;
print $string;
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.230.172.181
※ 編輯: LiloHuang 來自: 61.230.172.181 (09/22 01:27)
推
09/22 01:28, , 1F
09/22 01:28, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 11 之 12 篇)：
Programming 近期熱門文章
PTT數位生活區 即時熱門文章
