Mercurial > repos > elixir-it > covacs_freebayes

diff filter.fb.pl @ 0:03593410f057 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author elixir-it
date Fri, 09 Nov 2018 05:25:43 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/filter.fb.pl	Fri Nov 09 05:25:43 2018 -0500
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+#
+$f=shift;
+$out=shift;
+open(IN,$f);
+open(OUT,">$out");
+while(<IN>)
+{
+	if ($_=~/^#/)
+	{
+		print OUT;
+		next;
+	}else{
+		$vl=(split())[5];
+		$gt=(split())[-1];
+		$gt=(split(/\:/,$gt))[0];
+		next if $gt eq "0/0";
+		print OUT  if $vl>20;
+	}
+}
+close(OUT);