perl文本条件筛选

Posted Genetic evolution

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了perl文本条件筛选相关的知识,希望对你有一定的参考价值。

PERL 文本处理小案例

现有拟南芥若干基因以及对应的基因长度和GC含量,将GC含量大于0.45的基因挑选出来,并写入新的文件 ,文件格式如:

代码

#!/usr/bin/perl -wuse strict;open(IN,"Ath.len.GC.txt")or die("Can not open number.txt for reading:$!");open(OUT, ">Ath.len.GC.over0.45.txt") or die ("Can not write to out.txt: $!");my @line;while(<IN>){@line = split /\s+/, $_;if($line[2]>0.45){print OUT"$line[0]\t$line[2]\n";}}close (IN);close (OUT);

提取文件


以上是关于perl文本条件筛选的主要内容,如果未能解决你的问题,请参考以下文章