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

View of /Sprout/SaplingTest.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (download) (as text) (annotate)
Sat Jul 13 15:23:47 2013 UTC (7 years ago) by parrello
Branch: MAIN
Changes since 1.4: +9 -13 lines
Changed expression tables to add chip ID to experiment ID.

#!/usr/bin/perl -w

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


my $sap = Sapling->new();
my @tables = sort qw(Chip HasResultsIn Experiment AffectsLevelOf AtomicRegulon
                     IsFormedOf IsConfiguredBy OperatesIn CoregulatedSet
                     IsRegulatedWith IsCoregulatedWith HasIndicatedSignalFrom
                     Attribute HasValueFor ProducedResultsFor IndicatedLevelsFor
                     GeneratedLevelsFor);
for my $table (@tables) {
    print "Cleaing $table.\n";
    $sap->TruncateTable($table);
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3