作者imce (蜥蜴)
看板perl
标题Re: [问题] 请问如何写到新档案里
时间Tue Dec 26 17:54:55 2006
※ 引述《robbor ( 工作中的猫头鹰)》之铭言：
#!/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
File $lineno++;
print
File ": $_">;
}
}
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.120.15.17
1F：→ robbor:谢谢指导。 12/27 17:58