這個好像前面有討論過 但是.....
小弟不才....看到L大寫的 但就是看不懂orz
我是想取出檔案中NSC下的number然後把Chemical Names斷落下的每一行接上
檔案如下:
FILE -----------------------------------> Result:
<NSC> NSC_533/Uramine T 80/Yuramin T 80
553
.
.
.
. //就是想說能不能寫成"NSC/../../.."
<Chemical Names> 的格式...但一直無法成功
Uramine T 80
Yuramin T 80
Methylolacrylamide
N-Methanolacrylamide
N-Methylolacrylamide
Monomethylolacrylamide
N-(Hydroxymethyl)acrylamide
2-Propenamide, N- (hydroxymethyl)-
Acrylamide, N- (hydroxymethyl)-
$$$$
<NSC> NSC_12/NFS/NFZ/NF-7..........
12
.
.
.
<Chemical Names>
NFS
NFZ
NF-7
Nefco
Amifur
Chixin
Mammex
U-6421
Actin-N
Alfucin
$$$$
目前我已經寫到...
$File = $ARGV[0];
open( FID, $File );
use strict;
my $txtflag=0;
while (<FID>) {
$txtflag=1 if /^>\s\s\<NSC\>/i;
print "$_" if /^>\s\s\<NSC\>/i && $txtflag==1;
...............................................
}
close FID;
然後就死掉了 想請板上高手出手相救
無上感謝....... <(_ _)>
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.109.73.209
※ 編輯: tear2001 來自: 140.109.73.209 (12/20 17:56)