1. 程式人生 > >perl腳本:讀取fasta序列

perl腳本:讀取fasta序列

obj int ext war usr ast file next erl

#! /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\n$seq\n";
}

perl腳本:讀取fasta序列