perl/etc/WoodyMiaoLin/Tiger/N_in_scaffold.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 <>;
   6 $/ = ">";
   7 my $_ = <>;
   8 s/\s//g;
   9 my @a = split //;
  10 my $n;
  11 foreach (@a) {
  12   ++$n;
  13   if (!/N/) {
  14     print "$n\n";
  15   }
  16 }