Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

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
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (3)
As of 2018-01-17 20:24 GMT
Find Nodes?
    Voting Booth?
    How did you see in the new year?

    Results (205 votes). Check out past polls.