Mercurial > repos > elixir-it > covacs_freebayes

annotate filter.fb.pl @ 1:cbe203c9bc3a draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author elixir-it
date Thu, 15 Nov 2018 15:55:26 -0500
parents 03593410f057
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
03593410f057 Uploaded
elixir-it
parents:
diff changeset
1 #!/usr/bin/perl -w
03593410f057 Uploaded
elixir-it
parents:
diff changeset
2 #
03593410f057 Uploaded
elixir-it
parents:
diff changeset
3 $f=shift;
03593410f057 Uploaded
elixir-it
parents:
diff changeset
4 $out=shift;
03593410f057 Uploaded
elixir-it
parents:
diff changeset
5 open(IN,$f);
03593410f057 Uploaded
elixir-it
parents:
diff changeset
6 open(OUT,">$out");
03593410f057 Uploaded
elixir-it
parents:
diff changeset
7 while(<IN>)
03593410f057 Uploaded
elixir-it
parents:
diff changeset
8 {
03593410f057 Uploaded
elixir-it
parents:
diff changeset
9 if ($_=~/^#/)
03593410f057 Uploaded
elixir-it
parents:
diff changeset
10 {
03593410f057 Uploaded
elixir-it
parents:
diff changeset
11 print OUT;
03593410f057 Uploaded
elixir-it
parents:
diff changeset
12 next;
03593410f057 Uploaded
elixir-it
parents:
diff changeset
13 }else{
03593410f057 Uploaded
elixir-it
parents:
diff changeset
14 $vl=(split())[5];
03593410f057 Uploaded
elixir-it
parents:
diff changeset
15 $gt=(split())[-1];
03593410f057 Uploaded
elixir-it
parents:
diff changeset
16 $gt=(split(/\:/,$gt))[0];
03593410f057 Uploaded
elixir-it
parents:
diff changeset
17 next if $gt eq "0/0";
03593410f057 Uploaded
elixir-it
parents:
diff changeset
18 print OUT if $vl>20;
03593410f057 Uploaded
elixir-it
parents:
diff changeset
19 }
03593410f057 Uploaded
elixir-it
parents:
diff changeset
20 }
03593410f057 Uploaded
elixir-it
parents:
diff changeset
21 close(OUT);