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

SOAP::WSDL script success or not?

by flexvault (Monsignor)
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 '' 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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1034005]
Approved by Corion
[Tux]: ELISHIVA, erix, Discipulus, afoken DBD::CSV now pushed. Try wget https://github. com/perl5-dbi/DBD- CSV/archive/ a26beac1.tar.gz -O DBD-CSV-0.50_01- a26beac1.tgz

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (8)
As of 2017-05-29 06:50 GMT
Find Nodes?
    Voting Booth?