Re^2: Navigate and getting proper output from SOAP WSDL response in Perl.

I Changed the print line to include Dumper(as next line), &now and I see output: print Dumper "name=$k"; print Dumper "Value=$keyHash{$k}\n"; And now my question still remains that I have to extract values. So do I have to handle each Type separately, as in a nonserialized object, a float array, a hash etc., ? So a case statement to check the type and then parse(navigate) each VAR1?

Output >>>>>>>>>>>>>>

 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++++++++++++++
$VAR1 = 'name=_on_nonserialized';
$VAR1 = 'Value=CODE(0x82152fc)
';


$VAR1 = 'name=_serializer';
$VAR1 = 'Value=SOAP::Serializer=HASH(0x844e500)
';

@@@@@@@@@@@@@@@$VAR1 = 'name=_typelookup';
$VAR1 = 'Value=HASH(0x844e338)
';

@@@@@@@@@@@@@@@$VAR1 = 'name=float';
$VAR1 = 'Value=ARRAY(0x885970c)
';


$VAR1 = 'name=base64';
$VAR1 = 'Value=ARRAY(0x881ecac)
';


$VAR1 = 'name=int';
$VAR1 = 'Value=ARRAY(0x844de34)
';


$VAR1 = 'name=string';
$VAR1 = 'Value=ARRAY(0x844dbac)
';


@@@@@@@@@@@@@@@
$VAR1 = 'name=_on_nonserialized';
$VAR1 = 'Value=CODE(0x82152fc)
';


$VAR1 = 'name=_level';
$VAR1 = 'Value=0
';


$VAR1 = 'name=_objectstack';
$VAR1 = 'Value=HASH(0x844dca8)
';

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$VAR1 = 'name=_xmlschema';
$VAR1 = 'Value=http://www.w3.org/1999/XMLSchema
';


$VAR1 = 'name=_signature';
$VAR1 = 'Value=ARRAY(0x8846c40)
';


$VAR1 = 'name=_readable';
$VAR1 = 'Value=0
';


$VAR1 = 'name=_maptype';
$VAR1 = 'Value=HASH(0x844e368)
';

@@@@@@@@@@@@@@@$VAR1 = 'name=SOAPStruct';
$VAR1 = 'Value=http://xml.apache.org/xml-soap
';


@@@@@@@@@@@@@@@
$VAR1 = 'name=_soapversion';
$VAR1 = 'Value=1.1
';


$VAR1 = 'name=_namespaces';
$VAR1 = 'Value=HASH(0x844e518)
';

@@@@@@@@@@@@@@@$VAR1 = 'name=http://schemas.xmlsoap.org/soap/encoding/
+';
$VAR1 = 'Value=SOAP-ENC
';


$VAR1 = 'name=http://www.w3.org/1999/XMLSchema';
$VAR1 = 'Value=xsd
';


$VAR1 = 'name=http://schemas.xmlsoap.org/soap/envelope/';
$VAR1 = 'Value=SOAP-ENV
';


$VAR1 = 'name=http://www.w3.org/1999/XMLSchema-instance';
$VAR1 = 'Value=xsi
';


@@@@@@@@@@@@@@@
$VAR1 = 'name=_seen';
$VAR1 = 'Value=HASH(0x881df54)
';

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$VAR1 = 'name=_encoding';
$VAR1 = 'Value=UTF-8
';


$VAR1 = 'name=_attr';
$VAR1 = 'Value=HASH(0x844e4c4)
';

@@@@@@@@@@@@@@@$VAR1 = 'name={http://schemas.xmlsoap.org/soap/envelope
+/}encodingStyle';
$VAR1 = 'Value=http://schemas.xmlsoap.org/soap/encoding/
';


@@@@@@@@@@@@@@@
$VAR1 = 'name=_multirefinplace';
$VAR1 = 'Value=0
';


$VAR1 = 'name=_autotype';
$VAR1 = 'Value=1
';


@@@@@@@@@@@@@@@
$VAR1 = 'name=_on_action';
$VAR1 = 'Value=CODE(0x82eb1fc)
';


$VAR1 = 'name=_deserializer';
$VAR1 = 'Value=SOAP::Deserializer=HASH(0x844e5cc)
';

@@@@@@@@@@@@@@@$VAR1 = 'name=_ids';
$VAR1 = 'Value=HASH(0x881ea90)
';

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$VAR1 = 'name=_xmlschemas';
$VAR1 = 'Value=HASH(0x8a50538)
';

@@@@@@@@@@@@@@@$VAR1 = 'name=http://xml.apache.org/xml-soap';
$VAR1 = 'Value=SOAP::XMLSchemaApacheSOAP::Deserializer
';


$VAR1 = 'name=http://www.w3.org/2001/06/soap-encoding';
$VAR1 = 'Value=SOAP::XMLSchemaSOAP1_2::Deserializer
';


$VAR1 = 'name=http://www.w3.org/2001/XMLSchema';
$VAR1 = 'Value=SOAP::XMLSchema2001::Deserializer
';


$VAR1 = 'name=http://schemas.xmlsoap.org/soap/encoding/';
$VAR1 = 'Value=SOAP::XMLSchemaSOAP1_1::Deserializer
';


$VAR1 = 'name=http://www.w3.org/1999/XMLSchema';
$VAR1 = 'Value=SOAP::XMLSchema1999::Deserializer
';


@@@@@@@@@@@@@@@
$VAR1 = 'name=_hrefs';
$VAR1 = 'Value=HASH(0x8858dc0)
';

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$VAR1 = 'name=_parser';
$VAR1 = 'Value=SOAP::Parser=HASH(0x8858d3c)
';

@@@@@@@@@@@@@@@$VAR1 = 'name=_parser';
$VAR1 = 'Value=
';


@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@
$VAR1 = 'name=_autoresult';
$VAR1 = 'Value=0
';


$VAR1 = 'name=_transport';
$VAR1 = 'Value=SOAP::Transport=HASH(0x8394160)
';

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$VAR1 = 'name=_on_fault';
$VAR1 = 'Value=CODE(0x82edde8)
';
 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++++++++++++++
[download]

Output <<<<<<<<<<<<<<

Comment on Re^2: Navigate and getting proper output from SOAP WSDL response in Perl. Download Code

Replies are listed 'Best First'.
Re^3: Navigate and getting proper output from SOAP WSDL response in Perl. by Loops (Curate) on Apr 08, 2013 at 18:31 UTC
You include Data::Dumper but then you never use it. Try replacing the line "print_wsout($fileSvc);" with "print Dumper $fileSvc;". Should let you see enough to debug your issue.	[reply]
Re^4: Navigate and getting proper output from SOAP WSDL response in Perl. by Narend (Initiate) on Apr 08, 2013 at 18:35 UTC
Thanks, will check that!	[reply]
Re^5: Navigate and getting proper output from SOAP WSDL response in Perl. by Anonymous Monk on Apr 08, 2013 at 18:53 UTC
Well,I did add the Dumper, Infact I did Data::Dumper::Dumper ($fileSvc); And I see the following: ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++ $VAR1 = bless( { '_on_nonserialized' => sub { "DUMMY" }, '_serializer' => bless( { '_on_nonserialized' => $VAR1->{'_on_nonserializ +ed'}, '_typelookup' => { 'float' => [ 30, sub { "DUMMY" }, 'as_float' ], 'int' => [ 20, sub { "DUMMY" }, 'as_int' ], 'base64' => [ 10, sub { "DUMMY" }, 'as_base64' ], 'string' => [ 40, sub { "DUMMY" }, 'as_string' ] }, '_xmlschema' => 'http://www.w3.org/1999/XMLSche +ma', '_objectstack' => {}, '_level' => 0, '_signature' => [], '_readable' => 0, '_soapversion' => '1.1', '_maptype' => { 'SOAPStruct' => 'http://xml.apa +che.org/xml-soap' }, '_namespaces' => { 'http://www.w3.org/1999/XMLSchem +a' => 'xsd', 'http://schemas.xmlsoap.org/soap +/encoding/' => 'SOAP-ENC', 'http://www.w3.org/1999/XMLSchem +a-instance' => 'xsi', 'http://schemas.xmlsoap.org/soap +/envelope/' => 'SOAP-ENV' }, '_seen' => {}, '_attr' => { '{http://schemas.xmlsoap.org/soap/enve +lope/}encodingStyle' => 'http://schemas.xmlsoap.org/soap/encoding/' }, '_encoding' => 'UTF-8', '_autotype' => 1, '_multirefinplace' => 0 }, 'SOAP::Serializer' ), '_on_action' => sub { "DUMMY" }, '_deserializer' => bless( { '_ids' => {}, '_xmlschemas' => { 'http://xml.apache.org/xml +-soap' => 'SOAP::XMLSchemaApacheSOAP::Deserializer', 'http://www.w3.org/2001/06 +/soap-encoding' => 'SOAP::XMLSchemaSOAP1_2::Deserializer', 'http://www.w3.org/2001/XM +LSchema' => 'SOAP::XMLSchema2001::Deserializer', 'http://www.w3.org/1999/XM +LSchema' => 'SOAP::XMLSchema1999::Deserializer', 'http://schemas.xmlsoap.or +g/soap/encoding/' => 'SOAP::XMLSchemaSOAP1_1::Deserializer' }, '_hrefs' => {}, '_parser' => bless( { '_parser' => undef }, 'SOAP::Parser' ) }, 'SOAP::Deserializer' ), '_autoresult' => 0, '_on_fault' => sub { "DUMMY" }, '_transport' => bless( {}, 'SOAP::Transport' ) }, 'FileServiceService' ); +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++ [download]	[reply] [d/l]