#!/usr/bin/perl
use strict;
use warnings;
my $id;
my $seq;
open IN,$ARGV[0] or die "Can't open genebank file!";
while (
perl代码提取genebank文件中最后部分的fasta序列
最新推荐文章于 2022-02-07 17:04:40 发布
#!/usr/bin/perl
use strict;
use warnings;
my $id;
my $seq;
open IN,$ARGV[0] or die "Can't open genebank file!";
while (