討論串(共12篇) - 想請教一下 perl 中的字串取代 - 看板Programming

看板 [ Programming ]

討論串想請教一下 perl 中的字串取代

共 12 篇文章

排序：最新先 | 最舊先 | 留言數 | 推文總分

內容預覽：開啟 | 關閉 | 只限未讀

首頁

尾頁

#12

Re: 想請教一下 perl 中的字串取代

推噓1(1推 )留言1則，0人參與作者kornelius (Kornelius)時間18年前 (2007/09/22 01:27)資訊

內容預覽:

我的方法是. 用 cpan 模組 String::Interpolate 來解決 replace string 的 Interpolate. my $replace = safe String::Interpolate 'c$1d';. my $pattern = qr/^a\/(.*)/;. $_

(還有48個字)

#11

Re: 想請教一下 perl 中的字串取代

推噓1(1推 )留言1則，0人參與作者LiloHuang (相見不如懷念)時間18年前 (2007/09/22 01:25)資訊

內容預覽:

順便提供一下不用 eval 區塊的另一個方法 :). my $string = 'a/bcde/f';. my $pattern = '^a\/(.*)';. my $replace = sub { "c$1d" };. $string =~ s/$pattern/&$replace/e;. pri

#10

Re: 想請教一下 perl 中的字串取代

推噓0(0推 )留言4則，0人參與作者kornelius (Kornelius)時間18年前 (2007/09/22 01:13)資訊

內容預覽:

的確，若只是單純使用 s/foo/$1/ee 是可. 不過若是 c$1d 這類，則不屬 statement，所以 double eval 無法使用. 不過，你想得到不用整塊 eval 的方法嗎？ @@?. --. ※ 發信站: 批踢踢實業坊(ptt.cc). ◆ From: 61.223.100.7

Re: 想請教一下 perl 中的字串取代

推噓0(0推 )留言5則，0人參與作者LiloHuang (相見不如懷念)時間18年前 (2007/09/22 00:52)資訊

內容預覽:

不曉得你是否可以以下面的測資達到跟我一樣的輸出. my $str = 'a/bcde/f'; # 原始字串. my $pattern = '^a\/(.*)'; # 比對樣式. my $replace = 'c$1d'; # 取代字串. my $runtime = "\$str =~ s/$patt

(還有75個字)

Re: 想請教一下 perl 中的字串取代

推噓0(0推 )留言0則，0人參與作者kornelius (Kornelius)時間18年前 (2007/09/22 00:45)資訊

內容預覽:

-----------. 推 LiloHuang:能否貼一份code 來看看 61.230.172.181 09/22. 00:35. → LiloHuang:我總覺得有地方不對勁 61.230.172.181 09/22. 00:36. 推 LiloHuang:double eval 用法應該不能

(還有184個字)

首頁

尾頁