#TCGA系列#利用perl提取一个文件夹中的多个文件夹里的注释文本

• 我们里用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</