看板Programming
标 题Re: 想请教一下 perl 中的字串取代
发信站白色情迷 (Thu Sep 20 23:45:33 2007)
转信站ptt!ctu-reader!ctu-gate!news.nctu!news.ntu!mars.scc.ntnu!snowBBS
※ 引述《[email protected] (相见不如怀念)》之铭言：
> 非常简单 只要使用 eval 就可以了
> #!/usr/bin/perl
> my $str = 'a/bcde/f';
> my $pat = '^a\/(.*)';
> my $rep = 'c$1d'; # \1 建议写成 $1 比较好
> my $runtime = "\$str =~ s/$pat/$rep/";
> eval $runtime;
> print $str;
感谢几位先进的帮忙，後来用 eval 才解决我的问题，感恩！ =)
顺道请问一下，为什麽写成 $1 比较好呢？
先前看一些 regular expression 的文件，好像都是教用 \1 的形式，
知道原因的话，印象比较深刻，以後才改得过来。 ^^;
--
╭╢师大资讯。白色情迷╟┬─ ⊙ Origin : snow.ice.ntnu.edu.tw
├╨→ 140.122.77.49←╜╰─ ☆ From : alg.csie.ntnu.edu.tw