提取信息

时间:2022-07-22
本文章向大家介绍提取信息，主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项，具有一定的参考价值，需要的朋友可以参考一下。
#!/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;

随机文章
本站知识点必读
最近更新