本篇內容介紹了“perl怎么提取信息”的有關知識，在實際案例的操作過程中，不少人都會遇到這樣的困境，接下來就讓小編帶領大家學習一下如何處理這些情況吧！希望大家仔細閱讀，能夠學有所成！
#!/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;
“perl怎么提取信息”的內容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業相關的知識可以關注億速云網站，小編將為大家輸出更多高質量的實用文章！
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
