perl脚本：读取fasta序列
Posted erinaceinae
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了perl脚本：读取fasta序列相关的知识，希望对你有一定的参考价值。
#! /usr/bin/perl
use strict;
use warnings;
use Bio::SeqIO;
my $file=shift;
my $fa=Bio::SeqIO->new(-file=>$file,-format=>‘fasta‘);
while(my $seq_obj=$fa->next_seq){
my $id=$seq_obj->id;
my $seq=$seq_obj->seq;
print ">$id $seq ";
}
以上是关于perl脚本：读取fasta序列的主要内容，如果未能解决你的问题，请参考以下文章