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

Annotation of /Sprout/SaplingTest.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (view) (download) (as text)

1 : parrello 1.1 #!/usr/bin/perl -w
2 :    
3 : parrello 1.2 use strict;
4 : parrello 1.4 use Sapling;
5 :     use Tracer;
6 :     use Stats;
7 : parrello 1.3
8 : parrello 1.4
9 :     my $sap = Sapling->new(loadDirectory => '/homes/parrello/saptest');
10 :     TSetup("3 Delete ERDB", ">/homes/parrello/test.log");
11 :     my $stats = Stats->new();
12 :     Trace("Looking for genomes.") if T(2);
13 :     my @genomes = $sap->GetFlat('Genome', "Genome(complete) = 1 AND Genome(scientific-name) LIKE ?",
14 :     ['Streptococcus %'], 'id');
15 :     for my $genome (@genomes) {
16 :     Trace("Processing $genome.") if T(2);
17 :     my $subStats = $sap->Delete(Genome => $genome, testMode => 'dump');
18 :     $stats->Accumulate($subStats);
19 :     }
20 :    
21 :     Trace("All done:\n" . $stats->Show()) if T(2);
22 : parrello 1.1

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3