in reply to Web services client in Perl

It would be more helpful if you pasted some of your real code in order to make it easier on anyone to assist you.
$result is not initialized, maybe you forgot to initialize $result. my $result

You can see a working example in the thread SOAP call to .NET Service

Replies are listed 'Best First'.
Re^2: Web services client in Perl
by sshahar1 (Initiate) on Jan 09, 2008 at 16:55 UTC

    The code is included:
    use SOAP::Lite;

print "<HTML>\n";
print "    <TITLE>CGI perl web services client</TITLE>\n";
print "<br>";
my $service= SOAP::Lite
    -> service(
    'http://localhost:8080/MyCalculatorServer/CalculatorWSService?wsdl
+');


my $result = $service->getUnitCageSlot(1234);

print "result is: ", $result;
print "</br>\n";
#$service->getUnitCageSlot(1234);


print "</HTML>\n";

    [download]

    I know $service is OK, the problem is with the web method call.

    Many thanks
    Sigal
[reply]
[d/l]
      You get the warning that $result is not initialized when you run this code?
      If not, what errors are you getting?
      Also, it would help to enable debug so that you can see what is going on behind the scenes.
      Do so by use SOAP::Lite +trace => qw(method trace debug);. Run the script from the command line and check the output.
[reply]
[d/l]

        The previous reply was made by me, I didn't notice that I was logged out
[reply]

        Hi

        I made some progress I found that Soap::Lite supports rpc/encoded style/encoding only and my WSDL is Document/Literal. So now I'm using SOAP::WSDL
        http://search.cpan.org/~mkutter/SOAP-WSDL-2.00_28/lib/SOAP/WSDL.pm
        The code is as follows
        
use SOAP::WSDL;

print "<HTML>\n";
print "    <TITLE>CGI perl web services client</TITLE>\n";
print "<br>";
my $soap =
    SOAP::WSDL->new(
        wsdl =>
        'http://localhost:8080/MyCalculatorServer/CalculatorWSService?
+wsdl' );

$soap->wsdlinit() || die("Can't init");
$som = $soap->call(
    "getUnitCageSlot",
        "iFIndex" => 1234);

print "result is: ", $som;
print "</br>\n";


print "</HTML>\n";

        [download]

        I'm getting the error:

        Error processing WSDL: can't find the path '/definitions/types/xsd:schema/xsd:element@name="getUnitCageSlot"/xsd:complexType/descendant::xsd:element'

        But all my elements have the prefix of xs and not xsd, so I'm exploring what I can do about that, I thought I'll try change the WSDL.pm to check for xs instead of xsd just to see if it would work but it's not working for me right now.

        I hope my "revelation" about Soap::Lite and Soap::WSDL would at least help other web services beginners like me. :-)
[reply]
[d/l]

In Section Seekers of Perl Wisdom