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

Diff of /Sprout/SaplingTest.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5, Sat Jul 13 15:23:47 2013 UTC revision 1.6, Fri Nov 8 18:28:13 2013 UTC
# Line 6  Line 6 
6  use Stats;  use Stats;
7    
8    
9  my $sap = Sapling->new();  open my $ih, "</Users/Bruce/Downloads/tax.dmp";
10  my @tables = sort qw(Chip HasResultsIn Experiment AffectsLevelOf AtomicRegulon  my $line = <$ih>;
11                       IsFormedOf IsConfiguredBy OperatesIn CoregulatedSet  if ($line =~ /(.+)\t\|\n$/) {
12                       IsRegulatedWith IsCoregulatedWith HasIndicatedSignalFrom      $line = $1;
                      Attribute HasValueFor ProducedResultsFor IndicatedLevelsFor  
                      GeneratedLevelsFor);  
 for my $table (@tables) {  
     print "Cleaing $table.\n";  
     $sap->TruncateTable($table);  
13  }  }
14    my @list = split /\t\|\t/, $line;
15    print map {"$_\n" } @list;

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3