作者kornelius (Kornelius)
看板Programming
标题Re: 想请教一下 perl 中的字串取代
时间Sat Sep 22 00:45:07 2007
-----------
推 LiloHuang:能否贴一份code 来看看 61.230.172.181 09/22
00:35
→ LiloHuang:我总觉得有地方不对劲 61.230.172.181 09/22
00:36
推 LiloHuang:double eval 用法应该不能达到这个效果 61.230.172.181 09/22 00:39
-----------
如下:
my $pat2=qr{(ab)c};
# or
my $pat="(ab)c";
my $sub='$1';
my $str = "abc ddd abc";
$str =~ s/$pat/$sub/eeg;
--
印出 ab ddd ab
使用 $pat 或 $pat2 都可。
( not ActivePerl )
※ 引述《kornelius (Kornelius)》之铭言：
[...]
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.223.100.79
※ 编辑: kornelius 来自: 61.223.100.79 (09/22 00:48)