perl怎么提取信息

本篇内容介绍了"perl怎么提取信息"的有关知识，在实际案例的操作过程中，不少人都会遇到这样的困境，接下来就让小编带领大家学习一下如何处理这些情况吧！希望大家仔细阅读，能够学有所成！

#!/usr/bin/perl -w

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

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

while(){

chomp;

my @arr=split /\t/;

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

next;

}

else{

print OUT $_,"\n";

}

}

close IN;

close OUT;

"perl怎么提取信息"的内容就介绍到这里了，感谢大家的阅读。如果想了解更多行业相关的知识可以关注网站，小编将为大家输出更多高质量的实用文章！