Mercurial > repos > mcharles > rapsodyn
view 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 source
#!/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);