Mercurial > repos > mcharles > rapsodyn
annotate filtersamunique/filtersamunique.pl @ 5:26d2c851d48e draft
Uploaded
author | mcharles |
---|---|
date | Mon, 16 Jun 2014 06:18:07 -0400 |
parents | 428799b67007 |
children |
rev | line source |
---|---|
2 | 1 #!/usr/bin/perl |
2 use strict; | |
3 use warnings; | |
4 | |
5 open(IN, $ARGV[0]) or die ("Can't open $ARGV[0]\n"); | |
6 while (my $line=<IN>){ | |
7 if ($line =~ /^\@/){ | |
8 #Header conservation | |
9 print $line; | |
10 } | |
11 else { | |
12 #Optionnal flag verification | |
13 if (($line =~ /XT\:A\:U/)&&($line =~ /X0\:i\:1/)&&($line =~ /X1\:i\:0\s/)){ | |
14 print $line; | |
15 } | |
16 } | |
17 } | |
18 | |
19 | |
20 close (IN); |