Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re: SOAP::LITE client help

by Khen1950fx (Canon)
on May 01, 2014 at 04:24 UTC ( #1084562=note: print w/replies, xml ) Need Help??

in reply to SOAP::LITE client help

In general, I would try something along these lines; also, you'll need warnings::everywhere.
#!/usr/bin/perl -l use strict; no warnings::anywhere qw(deprecated); use warnings qw(deprecated); my $isbn = shift @ARGV; use SOAP::Lite +autodispatch => uri => '', proxy => ' +smx', on_fault => sub { my ( $soap, $res ) = @_; die ref $res ? $res->faultdetail : $soap->transport->status; }; isAlive( $isbn ); print SOAP::Lite->self->call->result;
Update: fixed typo - should be a comma at end of line 11.

Replies are listed 'Best First'.
Re^2: SOAP::LITE client help
by Wroof (Novice) on May 01, 2014 at 22:57 UTC

    Thanks for your help. When I try and run this code after installing warnings::Everywhere I get the following errors.

    Use of uninitialized value $_[0] in pattern match (m//) at C:/Strawber +ry/perl/si te/lib/SOAP/ line 340. Use of uninitialized value in sprintf at C:/Strawberry/perl/site/lib/S +OAP/Lite.p m line 3612. Press any key to continue . . .

    I have also tried another piece of code to see what happens and this one returns no errors but it also does not output anything other that the test points I put in. This uses the WSDL on the page.

    #!/usr/bin/perl -w use strict; use diagnostics; use warnings; use Data::Dumper; eval { require SOAP::Lite; }; die "Fehler:\n$@\n\n" if $@; my $soap = SOAP::Lite->new(); print "test \n"; my $service = $soap->service(' +rviceCashPoint.asmx?wsdl'); print Dumper($service->getCardInfo('ws','ws','45','pm01001011000000003 +7')); print "test \n";
      Thanks for the response. I fixed a typo. Please try it again.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1084562]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (3)
As of 2021-10-26 17:12 GMT
Find Nodes?
    Voting Booth?
    My first memorable Perl project was:

    Results (90 votes). Check out past polls.