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

Annotation of /Sprout/SaplingTest.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (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 : parrello 1.5 my $sap = Sapling->new();
10 :     my @tables = sort qw(Chip HasResultsIn Experiment AffectsLevelOf AtomicRegulon
11 :     IsFormedOf IsConfiguredBy OperatesIn CoregulatedSet
12 :     IsRegulatedWith IsCoregulatedWith HasIndicatedSignalFrom
13 :     Attribute HasValueFor ProducedResultsFor IndicatedLevelsFor
14 :     GeneratedLevelsFor);
15 :     for my $table (@tables) {
16 :     print "Cleaing $table.\n";
17 :     $sap->TruncateTable($table);
18 : parrello 1.4 }

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3