Mercurial > repos > elixir-it > covacs_varscan2

diff filter.varscan.pl @ 0:eaac11a49bd2 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 06:06:32 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/filter.varscan.pl	Fri Nov 09 06:06:32 2018 -0500
@@ -0,0 +1,22 @@
+#!/usr/bin/perl -w
+$f=shift;
+$outfile=shift;
+open(OUT,">$outfile");	
+open(IN,$f);
+$head=<IN>;
+print OUT $head;
+while(<IN>)
+{
+	if ($_=~/^\#/)
+	{
+		print OUT;
+		next;
+	}
+	$v=(split())[-1];
+	@vl=(split(/\:/,$v));
+	$vt=$vl[2];
+	if ($vt>=10)
+	{
+		print OUT;
+	}
+}