#!/usr/bin/perl
use strict;
use warnings;
my $seq;
my %hash;
my $id;
my $length;
##读取句柄,input为标准fasta数据格式,即一行id,一行序列
open IN,"$ARGV[0]" or die<
perl统计各个fasta序列长度及其出现次数
最新推荐文章于 2021-05-05 11:10:27 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)
#!/usr/bin/perl
use strict;
use warnings;
my $seq;
my %hash;
my $id;
my $length;
##读取句柄,input为标准fasta数据格式,即一行id,一行序列
open IN,"$ARGV[0]" or die<