go back

Script Perl: FastaToTbl.pl

  #!/usr/bin/perl -w
  
  use strict;
  
  my $count = 0;
  while(<>){
    chomp;
    if ( $_=~/\>(\S+)/ ){
      print "\n" if $count > 0;
      print $1."\t";
      $count++;
      }
    else{
    print $_;
      }
    }
    print "\n"