推 tear2001:喔喔 ab大也幫忙了....多寫大大...這樣就有兩支可以用了 12/21 15:10
→ abliou:你客氣了..我只是順便練習...XD 12/21 15:56
$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