fasta序列长度的计算，尤其适合文本较大，打开麻烦！

#!/usr/bin/perl -w
print"input your file,then press Enter!\n";
my $file=;
open FILE,"$file";
open OUT,">result";

  while (){
      chomp;
      if(/>/){
          $head=$_;
      }else{$seq{$head}.=$_;}
          
      }
 
  foreach (keys %seq){
      
        $num=length$seq{$_};       
      
      print OUT "$_\t$num\n";
  }
 exit;   

#######适合大的文件###############