Re: [問題] print 特定段落
#!/usr/bin/perl
open FH, "test.txt";
$_ = join('',<FH>);
close FH;
s/(sage \d+ P)\s+{\s+?([ ]+(?:name "[^"]+"\s+?){2})/print $1.$\/.$2/eg;
# 測資如同原本的 test.txt
※ 編輯: LiloHuang 來自: 211.79.63.18 (05/27 01:09)
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
