Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

SOAP::WSDL script success or not?

by flexvault (Parson)
on May 17, 2013 at 18:15 UTC ( #1034005=perlquestion: print w/ replies, xml ) Need Help??
flexvault has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks,

In an earlier thread I asked how to convert a coldfusion script to a Perl script. I got a lot of help and some good pointers to resources. Now I think I have working code, but I'm not getting the result I expected, but the web server personnel say that it worked.

Is there a way to show all variables in a script and print to an external file before exiting?

There seems to be a lot of hashes and I'm wondering if the results are stored in one of them. The following code seems to be working??????

#!/usr/local/bin/perl -w use strict; use warnings; use SOAP::WSDL; use lib "./base_dir/"; use MyInterfaces::EfilingWSService::EfilingWSPort; # generated by ' +wsdl2perl.pl' my %data = ( inXML => '<Envelope><Parameters><Method>Person</Method><F +irstName>Michael%</FirstName><LastName>Smith%</LastName></Parameters> +</Envelope>', ); my $interface = MyInterfaces::EfilingWSService::EfilingWSPort->new( +); my $object = $interface->getOcscData( %data ); open ( my $out, ">","./soap_respose" ) || die " ! open-59 File: $!" +; print $out "$object\n\n"; print $out "$interface\n\n"; close $out; 1; __END__
Results in 'soap_response' after running the above script.
<getOcscDataResponse xmlns="http://.../"><return xmlns=""></return></g +etOcscDataResponse> MyInterfaces::EfilingWSService::EfilingWSPort=SCALAR(0x9e4e808)
Any ideas or suggestions appreciated.

Thank you...Ed

"Well done is better than well said." - Benjamin Franklin

Comment on SOAP::WSDL script success or not?
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1034005]
Approved by Corion
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (15)
As of 2014-12-22 21:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (130 votes), past polls