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

View of /Sprout/SaplingTest.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.4 - (download) (as text) (annotate)
Wed May 8 20:28:44 2013 UTC (7 years, 1 month ago) by parrello
Branch: MAIN
Changes since 1.3: +17 -5 lines
Updates for new incremental load.

#!/usr/bin/perl -w

use strict;
use Sapling;
use Tracer;
use Stats;


my $sap = Sapling->new(loadDirectory => '/homes/parrello/saptest');
TSetup("3 Delete ERDB", ">/homes/parrello/test.log");
my $stats = Stats->new();
Trace("Looking for genomes.") if T(2);
my @genomes = $sap->GetFlat('Genome', "Genome(complete) = 1 AND Genome(scientific-name) LIKE ?",
        ['Streptococcus %'], 'id');
for my $genome (@genomes) {
    Trace("Processing $genome.") if T(2);
    my $subStats = $sap->Delete(Genome => $genome, testMode => 'dump');
    $stats->Accumulate($subStats);
}

Trace("All done:\n" . $stats->Show()) if T(2);


MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3