Re: [請益] print段落
$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
推
12/21 15:10, , 1F
12/21 15:10, 1F
→
12/21 15:56, , 2F
12/21 15:56, 2F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
