Mercurial > repos > elixir-it > covacs_varscan2

view filter.varscan.pl @ 1:44e9fd8fd25a 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:58:21 -0500
parents eaac11a49bd2
children
line wrap: on
line source

#!/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;
	}
}