view filter_Fb/filter.fb.pl @ 0:68a3648c7d91 draft default tip

Uploaded

#!/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 unless $gt eq "1/1";
			print OUT  if $vl>20;
		}
	}
	close(OUT);