HI ALL!!! I'm new with Perl in general,
a newbie!! 
I want to write a perl client for calling this web service : 
http://bioinformatics.istge.it:8080/axis/services/cabri.getBacteriaById?wsdl 
its a Soap web service RPC/encoded. 
Please could some of you tell me
how to write such a script?!!? 
normally it works with an input with 2
arguments (key-value): libs and id (for example : libs = DSMZ_BACT , id =
DSM_SP_9849). 
I'm not sure how to get the outpus ('result) 
Thank you very much 
regards 

I tried in this way but it seems not to
work!

#!perl -w
# Enable Perl warnings
use strict;
use warnings;

# SOAP::Lite module
use SOAP::Lite;

my %params = (
    "libs" => "DSMZ_BACT" ,
    "id"   => "DSM_SP_9849"
);
#my %output = ( "output" => "" );

# WSDbfetch WSDL URL
my $WSDL = 
'http://bioinformatics.istge.it:8080/axis/services/cabri.getBacteriaById?wsdl';

# Create the service interface
my $soap = new SOAP::Lite->service($WSDL);

my %output = $soap->runAndWaitFor(%params);
#my $result = $output->valueof('//output');
#print $result ;
#print $output->{'output'};
print %output;



      

Reply via email to