作者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)