in reply to Re: SOAP::Deserializer problem
in thread SOAP::Deserializer problem

I tried this: 
my $soap = SOAP::Lite->uri($uri)->proxy( $proxyUrl, timeout => 5 );

my $method = SOAP::Data->name("command")->attr(
    {
        'template'  => 'sample',
        'method'    => 'execute',
        'loginname' => 'me',
    }
);

my $som = $soap->call($method);

if ( $som->fault ) { die $som->fault->faultstring }

print $som->valueof('/Envelop/Body/command');

[download]
and then in a debugging session: 
 DB<1> x $som->valueof('/Envelope/Body/command')
0 HASH(0x1bb793c)
  'message' => HASH(0x1bb793c)
   -> REUSED_ADDRESS
 DB<2> x $som->valueof('/Envelope/Body/command/message')
0 HASH(0x1bb793c)
  'message' => HASH(0x1bb793c)
   -> REUSED_ADDRESS

[download]
I cannot see how to access the subnodes ... Thanks for any help! Axel.

Replies are listed 'Best First'.
Re^3: SOAP::Deserializer problem
by rahed (Scribe) on Jul 29, 2007 at 18:16 UTC
    I didn't realise you don't code the request like this:
    $method = SOAP::Data->name('command'=>'value');

    So to access attribute values you should use

    $attr_value = $som->dataof('//Envelope/Body/command')->attr->{'template'};
    or
    $attr_value = $som->dataof('//command')->attr->{'template'};
    (I don't remember which one because don't use attributes.)

    This should hold for
    <Envelope>
    <Body>
    <command template="foo">100</command>
    </Body>
    </Envelope>

    and $attr_value is foo, command value is 100.

    Docs are in SOAP/SOM.pod of perl/site/lib directory.
[reply]
      Sorry, my first go was more complicated than necessary. Here is a second simplified go to demonstrate my problem: 
      #!/usr/bin/perl
use warnings;
use strict;

use SOAP::Lite;

my $xml = <<'eof';
<?xml version="1.0"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/env
+elope/">
  <SOAP-ENV:Header/>
  <SOAP-ENV:Body>
    <command id="1">
      <message id="2">
        <time time="27.07.2007-10:37:49 +0200"/>
      </message>
    </command>
  </SOAP-ENV:Body>
</SOAP-ENV:Envelope>
eof

my $som = SOAP::Deserializer->deserialize($xml);

print "time = ", $som->dataof('//command/message/time')->attr->{time},
+ "\n";
print "done.\n";

      [download]
      Output is 
      time = 27.07.2007-10:37:49 +0200
done.

      [download]
      but 
      Can't call method "attr" on an undefined value at deserialize-test2.pl
+ line 23.

      [download]
      as soon as the id attributes of command and message are identical. I wouldn't care if I could get the raw XML from the SOAP response. Axel.
[reply]
[d/l]
[select]
        You want to avoid the use of id attributes and rename them to some other name or qualify them in the namespace.

        SOAP protocol uses id/href attribute pairs to identify its entities.

        If you specify outputxml('true') for a soap object, a method will return raw xml code.
[reply]

In Section Seekers of Perl Wisdom