作者abliou (Art of Life)
看板Perl
标题Re: [请益] print段落
时间Thu Dec 20 20:06:37 2007
$File = $ARGV[0];
open( FID, $File );
while(chomp($_=<FID>)){
(/^NSC (\d+)(?{ print "NSC_$1"})|<Chemical Names>(?{$flag=1})|
^\$(?{$flag=0;print "\n";})/); # 跟上面一行接在一起
print "/".$_ if ($flag && (/[^<Chemical Names>]/));
}
close FID;
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.123.213.101
1F：推 tear2001:喔喔 ab大也帮忙了....多写大大...这样就有两支可以用了 12/21 15:10
2F：→ abliou:你客气了..我只是顺便练习...XD 12/21 15:56