Mercurial > repos > mcharles > rapsodyn
view rapsodyn/PileupVariant.pl @ 28:fefe6d89dbf1 draft
Uploaded
author | mcharles |
---|---|
date | Wed, 10 Sep 2014 08:10:38 -0400 |
parents | e8e6b962c1f2 |
children | 7b8646f46010 |
line wrap: on
line source
#!/usr/bin/perl use strict; my $inputfile = $ARGV[0]; open(IF, $inputfile) or die("Can't open $inputfile\n"); #Extraction des variants my $nb_line=0; while (my $line=<IF>){ my $test = $line; $test =~ s/\$//g; #the read start at this position $test =~ s/\^.//g; #the read end at this position followed by quality char my @field = split(/\s+/,$test); if ($field[4]=~/[ATGCN]/i){ print $line; } } close(IF);