Re: [問題] print 特定段落

[LiloHuang (相見不如懷念)]

#!/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)