[Bio] / Sprout / Sprout.pm Repository:
ViewVC logotype

Diff of /Sprout/Sprout.pm

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

revision 1.105, Wed Jan 30 22:14:02 2008 UTC revision 1.106, Wed Feb 6 23:21:02 2008 UTC
# Line 150  Line 150 
150      return $retVal;      return $retVal;
151  }  }
152    
153    =head3 RealCoreGenomes
154    
155        my @genomes = $sprout->RealCoreGenomes();
156    
157    Return the IDs of the original core NMPDR genomes. These are the ones
158    in the major groups indicated in the C<@realCoreGroups> member of the
159    B<FIG_Config> file.
160    
161    =cut
162    
163    sub RealCoreGenomes {
164        # Get the parameters.
165        my ($self) = @_;
166        # Declare the return variable.
167        my @retVal = ();
168        # Get the hash of all the genome groups.
169        my %groups = $self->GetGroups();
170        # Loop through the groups, keeping the ones that belong to real core
171        # organisms.
172        for my $group (keys %groups) {
173            if (grep { $group =~ /$_/ } @FIG_Config::realCoreGroups) {
174                push @retVal, @{$groups{$group}};
175            }
176        }
177        # Return the result.
178        return @retVal;
179    }
180    
181  =head3 MaxSegment  =head3 MaxSegment
182    
183      my $length = $sprout->MaxSegment();      my $length = $sprout->MaxSegment();

Legend:
Removed from v.1.105  
changed lines
  Added in v.1.106

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3