FASTA|EMBL|genbank 文件格式相互转化

#!/usr/bin/perl -w 
#使用方法：perl transfer.pl file.gb ##文件的格式有三种
$inputfile=" $format1="genbank";
$outputfile=">id.fasta";
$format2="fasta";

use Bio::SeqIO;
         $in = Bio::SeqIO->new(-file => "$inputfile" ,
                                  -format => $format1);
           $out = Bio::SeqIO->new(-file => ">$outputfile" ,
                                  -format => $format2);

           while ( my $seq = $in->next_seq() ) {
               
               $out->write_seq($seq);
              
           }
exit;