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怎么提取信息”的内容就介绍到这里了，感谢大家的阅读。如果想了解更多行业相关的知识可以关注创新互联网站，小编将为大家输出更多高质量的实用文章！