19 lines
309 B
Perl
19 lines
309 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
die "usage:perl $0 input output" unless @ARGV==2;
|
||
|
|
open IN,"$ARGV[0]";
|
||
|
|
open OUT,">$ARGV[1]";
|
||
|
|
while(<IN>){
|
||
|
|
if(/^#/){
|
||
|
|
print OUT;
|
||
|
|
next;
|
||
|
|
}
|
||
|
|
chomp;
|
||
|
|
my @line=split(/\t/);
|
||
|
|
my($SU,$PE,$SR)=(split(/:/,$line[9]))[1,2,3];
|
||
|
|
next if ($PE<2 or $SR<5);
|
||
|
|
print OUT "$_\n";
|
||
|
|
}
|