最近看了一下进入PLoB的网页来路分析，看到有同学搜索计算fasta序列长度。其实自己在之前的数据分析中也遇到过相关的问题，这里给大家分享两种我常用的方法。

方法一：linux下用awk计算fasta序列的长度

前面发表一篇文章《用awk和sed快速将fasta格式的序列改成一行显示》，其实我的这种方法就是在这基础上进行的。加入已经有一个fasta文件为contig.fa，文件中的序列如下：

首先通过上面的命令将fasta序列转换成一行显示，命令如下：

得到如下结果：

如果想直接显示每条序列的长度，可以运行如下命令：

得到结果如下：

>1 19
>3 54
>5 52
>7 29
>9 40
>11 41
>13 52
>15 44
>17 49
>19 25


方法二：利用bioperl计算fasta序列长度

上面的方法是基于linux计算的，直接输出结果。但是有是有计算fasta序列的长度只是程序某一个小的操作步骤，那我们可以采用下面的方法.

首先，确定bioperl正确安装了。

然后再perl中利用如下的代码：

use Bio::SeqIO;
my $file;
my $seq;
my %hash
my $in=Bio::SeqIO->new(-file=>"$file",-format=>"fasta");
while ($seq=$in->next_seq())
{
$hash{$seq->id}=length($seq->seq()); # length($seq->seq()) 计算的是序列长度，序列的长度被存入hash表中
print $seq->id."\t".$seq->seq()."\n";# 直接输入，输出的结果与上面awk的方法是一致的
}

这样每一条序列的长度就被存入以其序列名字为key的hash表中