1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
while(<$file1>){
chomp;
my($chr,$start,$stop,$sens,$count)=split /\t/;
my $value_cx = join(';',$chr,$start,$stop,$sens);
$hash{$value_cx}->{'count'}=$count;
$final{$value_cx}++;
}
while(<$file2>){
chomp;
my($chr,$start,$stop,$sens,$count)=split /\t/;
my $value_cx = join(';',$chr,$start,$stop,$sens);
$dico{$value_cx}->{'count'}=$count;
$final{$value_cx}++;
}
foreach my $val (keys %final){
my($chr,$start,$stop,$sens) = split /;/, $val;
if(defined($hash{$val}->{'count'}) && defined($dico{$val}->{'count'})){
print "$chr\t$start\t$stop\t$sens\t$hash{$val}->{'count'}\t$dico{$val}->{'count'}\n";
}
} |
Partager