#usr/bin/perl -w
use strict;
my %hash;
open IN , "a.txt" or die $!;
while
chomp;
$_=~/(ENSG.*?)\t(.*?)(ENSG.*?)\t(.*?)(ENSG.*?)\t(.*?)/;
$hash{$1}=$2;
$hash{$3}=$4;
$hash{$5}=$6;
}
foreach my $key (sort keys %hash)
{
print "$hash{$key}\n";
}
内容全部来源于网络收集，如有侵权，请联系网站删除！