[Bio] / FigKernelScripts / exp_pc_compute.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/exp_pc_compute.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5, Wed Jul 20 13:20:49 2011 UTC revision 1.6, Wed Jul 20 13:32:14 2011 UTC
# Line 89  Line 89 
89          # Recursive mode. Process the subdirectories.          # Recursive mode. Process the subdirectories.
90          Trace("Recursive mode. Processing genomes under $mainDirectory.") if T(2);          Trace("Recursive mode. Processing genomes under $mainDirectory.") if T(2);
91          if (opendir(my $dh, $mainDirectory)) {          if (opendir(my $dh, $mainDirectory)) {
92              my @genomes = grep { $_ =~ /^\d+$/ } readdir $dh;              my @genomes = grep { $_ =~ /^\d+\.\d+$/ } readdir $dh;
93              push @dirs, map { "$mainDirectory/$_" } @genomes;              push @dirs, map { "$mainDirectory/$_" } @genomes;
94          }          }
95      }      }

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3