******processing <<<>> #### >>>***processing <<<## [13:06 yunfei@bcl code]$ cat -T -E ../src/db_names | grep "hg18ibwa" $g18ibwa^Iindex_bwa_human_b36_both.fasta.tar.gz^Iindex_bwa_human_b36_both.fasta.index.tar.gz.md5 #### 102 while() { 103 next if /^#/; 104 1 while (chomp); 105 s/ +/\t/g; 106 s/\t+/\t/g; 107 my @tmp=split('\t',$_); 108 my $item=shift @tmp; 109 $down_name{$item}=\@tmp; 110 } #### 130 if ($file =~/(zip$)|(gz$)|(tar$)|(bz$)|(bz2$)/i) { 131 $untar{$file}=$untar_dir; 132 print STDERR "Got $file another tar file\n"; 133 } elsif ($file =~/md5$/i) { 134 my ($source_file)= $file=~/(.*)\.md5$/i; 135 print STDERR "Source file $source_file\n"; 136 }