作者LiloHuang (相見不如懷念)
看板perl
標題Re: [問題] print 特定段落
時間Wed Aug 15 14:14:57 2007
#!/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)