提取信息

#!/usr/bin/perl -w



open IN,"ARGV[0]" or die $!;

open OUT,">ARGV[1]" or die $!;



while(<IN>){

    chomp;

	my @arr=split /\t/;

	if(($_=~/^#/)||($arr[]=~/^INDEL.*/)||($arr[] =~ /,/)||($arr[] < 20)){     ###提取信息	

		next;

       }

       else{

				print  OUT $_,"\n";

			}

	}			

close IN;

close OUT;