Re: 想請教一下 perl 中的字串取代
※ 引述《LiloHuang.bbs@ptt.cc (相見不如懷念)》之銘言:
> 非常簡單 只要使用 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
討論串 (同標題文章)
以下文章回應了本文:
完整討論串 (本文為第 5 之 12 篇):
Programming 近期熱門文章
PTT數位生活區 即時熱門文章