Mercurial > repos > elixir-it > covacs_varscan2

view 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 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;
	}
}