討論串想請教一下 perl 中的字串取代
共 12 篇文章
內容預覽:
eval 少用，建議使用 qr{ pattern }. 譬如. $pattern = qr/^a\/(.*)/;. 比對時，可直接使用，如:. $str =~ s/$pattern/$1/g;. 透過 qr 操作子可把 pattern 存起來，在呼叫的時候就不會有樣式編譯的問題 ( 請參閱. Pro
(還有145個字)
內容預覽:
※ 引述《LiloHuang.bbs@ptt.cc (相見不如懷念)》之銘言：. > 非常簡單 只要使用 eval 就可以了. > #!/usr/bin/perl. > my $str = 'a/bcde/f';. > my $pat = '^a\/(.*)';. > my $rep = 'c$1d
(還有179個字)
內容預覽:
※ 引述《dreamer.bbs@snow.ice.ntnu.edu.tw ( )》之銘言：. 非常簡單 只要使用 eval 就可以了. #!/usr/bin/perl. my $str = 'a/bcde/f';. my $pat = '^a\/(.*)';. my $rep = 'c$1d';
(還有40個字)