PerlClient.pl

#!perl 

use SOAP::Lite;
use IO::File;


my $service = SOAP::Lite
  ->uri('urn:msd_soap_service')
  #->proxy('http://www.ebi.ac.uk/msd-srv/msdsoap'); 
  ->proxy('http://geoff:cc12345678@www.ebi.ac.uk/msd-srv/msdsoapd');
  # Or:
  #-> service('http://www.ebi.ac.uk/msd/api/msd_soap_service.wsdl');
 
 
 
 my $sql ='select * from entry e, author a where e.res_val <= 2.5 and e.entry_id = a.entry_id and a.last_name = \'HENRICK\' ';
 my $connName = 'MyPerlConnection';
 my $queryName = 'MyPerlQuery';
 my $resName = 'MyPerlResult';
 my $buf=50;

print "\nCalling method: msdConnect()\n";


my $result1 = $service->msdConnect(SOAP::Data->name('conn-name')->type('xsd:string')->value($connName));

unless ($result1->fault) {
    print "\nmsdConnect() called successfully.\n";
        print $result1->result();
}else{
        print join  ', ', 
        $result1->faultcode, 
    $result1->faultstring;
}
print "\nCalling method: msdResultset()\n";
my $result2 = $service->msdResultset(SOAP::Data->name('conn-name')->type('xsd:string')->value($connName),
                                                                         SOAP::Data->name('query-name')->type('xsd:string')->value($queryName),
                                                                         SOAP::Data->name('res-name')->type('xsd:string')->value($resName));


unless ($result2->fault) {
    print "\nmsdResultset() called successfully.\n";
        print $result2->result();
}else{
        print join  ', ', 
        $result2->faultcode, 
    $result2->faultstring;
}

print "\nCalling method: msdQuery()\n";
my $result3 = $service->msdQuery(SOAP::Data->name('conn-name' => $connName),
                                                     SOAP::Data->name('query-name'=> $queryName),
                                                     SOAP::Data->name('result-name'=> $resName),
                                                     SOAP::Data->name('stm'=> $sql));

unless ($result3->fault) {
    print "\nmsdQuery() called successfully.\n";
        print $result3->result();
}else{
        print join  ', ', 
        $result3->faultcode, 
    $result3->faultstring;
}


print "\nCalling method: msdExecQuery()\n";
my $result4 = $service->msdExecQuery(SOAP::Data->name('conn-name' => $connName),
                                                         SOAP::Data->name('query-name'=> $queryName),
                                                         SOAP::Data->name('result-name'=> $resName),
                                                         SOAP::Data->name('buf'=> $buf));




unless ($result4->fault) {
    print "\nmsdExecQuery() called successfully.\n";
        print $result4->result();

}else{
        print join  ', ', 
        $result4->faultcode, 
    $result4->faultstring;
}

print "\nCalling method: msdGetResultSet()\n";


 print "\nI am here 1.\n";

my $result5 = $service->msdGetResultSet(SOAP::Data->name('conn-name' => $connName),
                                                         SOAP::Data->name('query-name'=> $queryName),
                                                         SOAP::Data->name('result-name'=> $resName));
$col =1;
 print "\nI am here 2.\n";
unless ($result5->fault) {
    print "\nmsdGetResultSet() called successfully.\n";
        
        my $dataSet = $result5->result();
        $record_set = $dataSet;
        
        foreach  my $rec (@$record_set) {
     $row=1;
         foreach my $val (@$rec) {
           print "Column ", $col ," Row: ", $row, " value = " ;
                   print $val, "\n"; 
      
          $row++;
     }
         $col++;
    }

}else{
        print join  ', ', 
        $result5->faultcode, 
    $result5->faultstring;
}

print "\nCalling method: msdEndQueryPack()\n";
my $result6 = $service->msdEndQueryPack(SOAP::Data->name('query-name')->type('xsd:string')->value($queryName),
                                                                 SOAP::Data->name('result-name')->type('xsd:string')->value($resName));

unless ($result6->fault) {
    print "\nmsdEndQueryPack() called successfully.\n";
        print $result6->result();
}else{
        print join  ', ', 
        $result6->faultcode, 
    $result6->faultstring;
}

print "\nCalling method: msdEndConnect() \n";
my $result12 = $service->msdEndConnect(SOAP::Data->name('conn-name')->type('xsd:string')->value($connName));

unless ($result12->fault) {
    print "\nmsdEndConnect()  called successfully.\n";
        print $result12->result();
}else{
        print join  ', ', 
        $result12->faultcode, 
    $result12->faultstring;
}

---