113 |
# genomes for each group in a hash. |
# genomes for each group in a hash. |
114 |
my %baseGroups = $sprout->GetGroups(); |
my %baseGroups = $sprout->GetGroups(); |
115 |
# Fix it into a hash by super-group. |
# Fix it into a hash by super-group. |
116 |
my %coreGroups = Sprout::Fix(%baseGroups); |
my %coreGroups = $sprout->Fix(%baseGroups); |
117 |
for my $coreGroup (keys %coreGroups) { |
for my $coreGroup (keys %coreGroups) { |
118 |
# Compute the directory and isure it exists. |
# Compute the directory and isure it exists. |
119 |
my $superDirectory = "$outDir/$coreGroup"; |
my $superDirectory = "$outDir/$coreGroup"; |
159 |
|
|
160 |
=head3 CleanGenomeName |
=head3 CleanGenomeName |
161 |
|
|
162 |
C<< my $cleaned = CleanGenomeName($name); >> |
my $cleaned = CleanGenomeName($name); |
163 |
|
|
164 |
Clean up a genome name so it can be used as a file name. |
Clean up a genome name so it can be used as a file name. |
165 |
|
|