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

Diff of /Sprout/SapServerTest4.pl

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

revision 1.6, Tue Feb 14 19:20:31 2012 UTC revision 1.7, Fri Nov 2 20:28:52 2012 UTC
# Line 8  Line 8 
8    
9      my ($sap, $sapObject, $altObject);      my ($sap, $sapObject, $altObject);
10      if ($ENV{SAS_SERVER} eq 'localhost') {      if ($ENV{SAS_SERVER} eq 'localhost') {
11          $sap = Sapling->new(dbName => 'pubseed_sapling_10', dbhost => 'localhost', port => 3333);          $sap = Sapling->new(dbName => 'pubseed_sapling_10', dbhost => 'localhost', port => 3399);
12  #        $sap = Sapling->new(dbName => 'pseed_sapling_07', dbhost => 'localhost', port => 3333);  #        $sap = Sapling->new(dbName => 'pseed_sapling_07', dbhost => 'localhost', port => 3333);
13          $sapObject = SAPserver->new(sapDB => $sap, url => 'localhost');          $sapObject = SAPserver->new(sapDB => $sap, url => 'localhost');
14          $altObject = ALITREserver->new(sapDB => $sap, url => 'localhost');          $altObject = ALITREserver->new(sapDB => $sap, url => 'localhost');
# Line 19  Line 19 
19          $sapObject = SAPserver->new();          $sapObject = SAPserver->new();
20  #        $altObject = ALITREserver->new();  #        $altObject = ALITREserver->new();
21      }      }
22      my $start = time;  #
23      my $result = $sapObject->ids_in_subsystems(-genome => '83333.1',  my @ids = qw( cfe6d12b8a842868ee25e4b775456cda
24              -subsystems => 'TCA_Cycle', -roleForm => 'full');                03382fd0dbe13a282d4b7b01be7f9d9c
25      my $duration = time - $start;                616c2e7e50820a5862be6a2364206975
26      print "$duration seconds\n";              );
27    
28    my $result;
29    
30    $result = $sapObject->select( { -path   =>   'ProteinSequence',
31                               -filter => { 'ProteinSequence(id)' => \@ids },
32                               -fields => [ qw(id sequence) ],
33                             }
34                           );
35    
36    print Dumper( \@ids, $result );
37    
38    @ids = reverse @ids;
39    $result = $sapObject->select( { -path   =>   'ProteinSequence',
40                               -filter => { 'ProteinSequence(id)' => \@ids },
41                               -fields => [ qw(id sequence) ],
42                             }
43                           );
44    
45    print Dumper( \@ids, $result );
46  1;  1;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3