作者LiloHuang (相见不如怀念)
看板Programming
标题Re: 想请教一下 perl 中的字串取代
时间Sat Sep 22 01:25:51 2007
※ 引述《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)
1F：推 kornelius:你的方法也不错 :) thanks 61.223.100.79 09/22 01:28