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文本条件筛选的主要内容，如果未能解决你的问题，请参考以下文章