perl文本条件筛选

Posted 2021-04-17 Genetic evolution

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);

提取文件