use strict;
use warnings;
my %hash=();
open(RF,"RBPgene.txt") or die $!;
while(my $line=<RF>){
chomp($line);
$hash{$line}=1;
}
close(RF);
open(RF,"gene expression.txt") or die $!;
open(WF,">RBP expression.txt") or die $!;
while(my $line=<RF>){
if($.==1){
print WF $line;
next;
}
my @arr=split(/\t/,$line);
my @zeroArr=split(/\|/,$arr[0]);
if(exists $hash{$zeroArr[0]}){
print WF $line;
delete($hash{$zeroArr[0]});
}
}
close(WF);
close(RF);
RBP AS生信流程（N）RBP表达量提取
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
推荐阅读更多精彩内容
- 成长记录-连载（三十六） ——我的第一篇五千字长文，说了什么，你一定想不到 并不是不想每天写公众号，而是之前思考怎...
- 怎样反思自己的教学——学习杜威《我们怎样思维》有感 2015-01-13 14:56:52 来源：普宁市第三中学网...
