[Bio] / Sprout / DeleteGenomes.pl Repository:
ViewVC logotype

Diff of /Sprout/DeleteGenomes.pl

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

revision 1.6, Fri Nov 8 18:42:26 2013 UTC revision 1.7, Fri Nov 8 18:43:35 2013 UTC
# Line 63  Line 63 
63  my @genomes;  my @genomes;
64  # Look for a genome ID file.  # Look for a genome ID file.
65  if ($options->{file}) {  if ($options->{file}) {
66      # We found one. Read the genome IDs.      # We found one. Read the genome IDs. Note we skip blank lines.
67      my $ih = Open(undef, "<$options->{file}");      my $ih = Open(undef, "<$options->{file}");
68      while (! eof $ih) {      while (! eof $ih) {
69          my ($genomeID) = Tracer::GetLine($ih);          my ($genomeID) = Tracer::GetLine($ih);
70            if ($genomeID) {
71          push @genomes, $genomeID;          push @genomes, $genomeID;
72      }      }
73        }
74      Trace(scalar(@genomes) . " genome IDs read from $options->{file}.") if T(2);      Trace(scalar(@genomes) . " genome IDs read from $options->{file}.") if T(2);
75  } else {  } else {
76      @genomes = @parameters;      @genomes = @parameters;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3