Re^2: SOAP WSDL and perl

I am running a local StockQuoteService , http://localhost:8080/axis2/services/StockQuoteService?wsdl

$stockprice=SOAP::Lite
    ->service('http://localhost:8080/axis2/service/StockQuoteService?w
+sdl')
    ->getPrice('IBM');
print Dumper($stockprice);
[download]

The result returns $VAR1 = undef; I am getting a undef value , what is the correct way to call a webservice using Perl?

Comment on Re^2: SOAP WSDL and perl Download Code

Replies are listed 'Best First'.
Re^3: SOAP WSDL and perl by Khen1950fx (Canon) on Nov 12, 2009 at 04:45 UTC
I usually use this: `#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use SOAP::Lite; use SOAP::WSDL; my $service = SOAP::Lite ->service('http://localhost:8080/axis2/service/StockQuoteSer +vice?wsdl'); print Dumper "IBM ", $service->getQuote('IBM'), "\n";` [download]	[reply] [d/l]
Re^4: SOAP WSDL and perl by secura (Initiate) on Nov 12, 2009 at 06:37 UTC
The URL you have I guess is wrong. It is "services" not "service". When I run the code with URL I get the following SOAP message returned `<?xml version='1.0' encoding='utf-8'?><soapenv:Envelope xmlns:soapenv= +"http://schemas.xmlsoap.org/soap/envelope/"><soapenv:Header xmlns:wsa +="http://www.w3.org/2005/08/addressing"><wsa:Action>http://www.w3.org +/2005/08/addressing/soap/fault</wsa:Action></soapenv:Header><soapenv: +Body><soapenv:Fault><faultcode>VersionMismatch</faultcode><faultstrin +g>Only SOAP 1.1 or SOAP 1.2 messages are supported in the system</fau +ltstring><detail /></soapenv:Fault></soapenv:Body></soapenv:Envelope>` [download] What could be the error?	[reply] [d/l]
Re^5: SOAP WSDL and perl by Khen1950fx (Canon) on Nov 12, 2009 at 10:14 UTC
Try adding this to your script: `use SOAP::Lite +trace => 'debug';` [download]	[reply] [d/l]