看板Programming
标 题想请教一下 perl 中的字串取代
发信站白色情迷 (Wed Sep 19 01:19:33 2007)
转信站ptt!ctu-reader!ctu-gate!news.nctu!news.ntu!mars.scc.ntnu!snowBBS
小弟刚接触 perl，有点问题想麻烦各位先进帮忙解答一下：
我知道在 perl 中可以用 s/pattern/replacement/ 来取代字串，
若原始字串是 "a/bcde/f", 若在程式码中以 s/^a\/(.*)/c\1d/ 进行取代
结果会变成 "cbcde/fd"
但是若我想把 pattern 跟 replacement 放在变数里，
比方说
$pat = "^a\/(.*)";
$rep = "c\1d";
然後以 s/$pat/$rep/ 来进行取代的操作，
结果会得到 "c\1d"
因为我需要由档案中将 pattern 与 replacement 的规则读进来，
该如何做才能得到与第一种写法一样的结果呢？
希望各位先进能拨空稍微指点一下，感恩！ =)
--
╭╢师大资讯。白色情迷╟┬─ ⊙ Origin : snow.ice.ntnu.edu.tw
├╨→ 140.122.77.49←╜╰─ ☆ From : alg.csie.ntnu.edu.tw