用perl写一个简单的根据ID提取表达量脚本

Posted 2021-04-17 01说

open(IN,"c:/Users/11852/Desktop/exp.txt") || die "$!";open(INID,"c:/Users/11852/Desktop/ID.txt") || die "$!";open(OUT,">c:/Users/11852/Desktop/test.txt") ||die "$!";my %keep_id=();while (my$line=<INID>){ chomp $line; $keep_id{$line}=1;}close INID;while (my$line=<IN>){ chomp $line; my @tmp=split(/\t/,$line); if (exists $keep_id{$tmp[0]}){ print OUT $line."\n" } }close(OUT);close(IN);