...ator/KAKS.txt" or die "$!"; #这个文件是blast输出并经过筛选的结果。
my @read=<IN>;foreach (@read){ $count++; if(/^[^#]/){ my @a = split /\t/,$read[$count]; $ID{$count}{$a[0]}=1; $ID{$count}{$a[1]}=1; }}close (IN);#print Dumper(\%ID);for my $con(keys %...
官方中心对照表：https://gdc.cancer.gov/resources-tcga-users/tcga-code-tables/center-codes
Code
Center
Name
Center
Type
Display
Name
Short
Name
中文
1
broad.mit.edu
CGCC
Broad Institute of MIT and Harvard
BI
麻省理工学院和哈佛大学博劳德研究所
...