[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.3, Tue Feb 5 05:47:32 2008 UTC revision 1.4, Fri Sep 13 18:06:14 2013 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  =head1 Delete Genomes from Sprout  =head1 Delete Genomes from Sapling
4    
5  This method deletes genomes from the Sprout database. Simply list the genomes  This method deletes genomes from the Sapling database. Simply list the genomes
6  as command-line parameters.  as command-line parameters.
7    
8  The currently-supported command-line options are as follows.  The currently-supported command-line options are as follows.
# Line 35  Line 35 
35  use Cwd;  use Cwd;
36  use FIG;  use FIG;
37  use Stats;  use Stats;
38  use Sprout;  use Sapling;
 use SFXlate;  
39  use File::Copy;  use File::Copy;
40  use File::Path;  use File::Path;
41    
42  # Get the command-line options.  # Get the command-line options.
43  my ($options, @parameters) = StandardSetup(['ERDB', 'Sprout'],  my ($options, @parameters) = StandardSetup(['ERDB'],
44                                          {                                          {
45                                              showOnly => [0, 'Display DELETE statements without deleting.'],                                              showOnly => [0, 'Display DELETE statements without deleting.'],
46                                              trace => [2, 'tracing level'],                                              trace => [2, 'tracing level'],
# Line 49  Line 48 
48                                              '<genome1> <genome2> ...',                                              '<genome1> <genome2> ...',
49                                              @ARGV);                                              @ARGV);
50  # Get the Sprout object.  # Get the Sprout object.
51  my $sprout = SFXlate->new_sprout_only();  my $sprout = Sapling->new();
52  # Save the show-only flag.  # Save the show-only flag.
53  my $showOnly = $options->{showOnly};  my $showOnly = $options->{showOnly};
54  # Create the statistics object.  # Create the statistics object.

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3