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

Annotation of /Sprout/SapServerTest4.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7 - (view) (download) (as text)

1 : parrello 1.1 ### Test program for Ross's project.
2 :    
3 :     use strict;
4 :     use SeedEnv;
5 :     use Tracer;
6 : parrello 1.2 use Sapling;
7 :     use ALITREserver;
8 : parrello 1.1
9 : parrello 1.2 my ($sap, $sapObject, $altObject);
10 :     if ($ENV{SAS_SERVER} eq 'localhost') {
11 : parrello 1.7 $sap = Sapling->new(dbName => 'pubseed_sapling_10', dbhost => 'localhost', port => 3399);
12 : parrello 1.2 # $sap = Sapling->new(dbName => 'pseed_sapling_07', dbhost => 'localhost', port => 3333);
13 :     $sapObject = SAPserver->new(sapDB => $sap, url => 'localhost');
14 : parrello 1.5 $altObject = ALITREserver->new(sapDB => $sap, url => 'localhost');
15 : parrello 1.3 $FIG_Config::orgCache = "P:/vol/public-pseed/SharedData/OrgCache";
16 : parrello 1.5 $FIG_Config::attrHost = "localhost";
17 :     $FIG_Config::attrPort = 3333;
18 : parrello 1.2 } else {
19 :     $sapObject = SAPserver->new();
20 : parrello 1.4 # $altObject = ALITREserver->new();
21 : parrello 1.2 }
22 : parrello 1.7 #
23 :     my @ids = qw( cfe6d12b8a842868ee25e4b775456cda
24 :     03382fd0dbe13a282d4b7b01be7f9d9c
25 :     616c2e7e50820a5862be6a2364206975
26 :     );
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 : parrello 1.1 1;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3