我们里用gdc下载TCGA数据时,下载到一个压缩文件包。解压后,会发现里面有多个文件夹,而且最烦人的是:有的文件夹里有annotations.txt,而有的没有。 miRNA注释文档有9列 我们利用perl把所有的注释信息(id和note)放在一个文档,方便后续工作 perl代码 #获取某个文件夹目录下的文件的路径名(包括多级目录里的文件) sub gDirTree { my $dir=shift; my @gFile=(); if (!-d "$dir" && -e "$dir") { push(@gFile,$dir</