htswanalysis/scripts/CleanWig.pm

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5
   6 my $on = 1;
   7
   8 while(<>) {
   9   if($_ =~ /chrom=(.*)$/) {
  10     if($1 =~ /^chr/) { $on = 1; } else { $on = 0; }
  11   }
  12
  13   if($on) { print $_; }
  14 }