Mercurial > repos > mcharles > rapsodyn
diff filtersamunique/filtersamunique.pl @ 5:26d2c851d48e draft
Uploaded
author | mcharles |
---|---|
date | Mon, 16 Jun 2014 06:18:07 -0400 |
parents | 428799b67007 |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/filtersamunique/filtersamunique.pl Mon Jun 16 06:18:07 2014 -0400 @@ -0,0 +1,20 @@ +#!/usr/bin/perl +use strict; +use warnings; + +open(IN, $ARGV[0]) or die ("Can't open $ARGV[0]\n"); +while (my $line=<IN>){ + if ($line =~ /^\@/){ + #Header conservation + print $line; + } + else { + #Optionnal flag verification + if (($line =~ /XT\:A\:U/)&&($line =~ /X0\:i\:1/)&&($line =~ /X1\:i\:0\s/)){ + print $line; + } + } +} + + +close (IN); \ No newline at end of file