Count the number of N in fasta file with Perl

Poonam Mahapatra — Fri, 04 Aug 2017 09:22:14 -0500

#!/usr/bin/perl

my ($h, $n, $l);

open(I,$ARGV[0]) or die($!);
while(){
  chomp;
  if(/^>/){
    $h=substr($_,1);
  }else{
    $n=($_=~tr/nN/nN/);
    $l=length($_);
    print $h,"\t",$l,"\t",$n,"\t",$n/($l-$n),"\n";
  }
}
close(I);

BOL: Count the number of N in fasta file with Perl

Count the number of N in fasta file with Perl