作者robbor ( 工作中的猫头鹰)
看板perl
标题[问题] 请问如何写到新档案里
时间Tue Dec 26 15:27:37 2006
请问一下
要怎麽把结果写到一个新的档案里
我开了NC_000964.faa档案，找到我要的资料
最後要统整在一个新的档案里，
最後一直写不出来，
请各位帮我看一下。
谢谢
#!/usr/bin/perl
# sort.plx
use warnings;
use strict;
open FILE, "NC_000964.faa" or die $!;
open File,">1234.txt" or die $!;
my $lineno = 1;
while (<FILE>) {if (/^>/){
print $lineno++;
print ": $_">;
}
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.127.160.142
2F：→ qrtt1:这页的范例和你要做的东东还蛮像的, 请观察一下 :) 12/26 15:34
3F：推 hajimels:你这样是直接在萤幕上print出来呀,另外养成close的习惯吧 12/26 21:08
4F：→ hajimels:啊... 下面有人回文了,你照他那样改应该就会写进档案了 12/26 21:09
5F：推 robbor:谢谢各位指导 12/27 17:58