Hi,

thanks for the example.

I tried to build it into my "real" code, but I'm messing up something. I'm reading data from a database here and generate an array of hashes: 
    while($sth->fetch()) {
        my %hash;
        
        # Hash zusammenbasteln
        $hash{"kurzname"} = $kurzname;
        $hash{"plz"} = $plz;
        $hash{"stadt"} = $stadt;
        $hash{"status"} = $status;
        $hash{"typ"} = $typ;
        $hash{"zusatz"} = $zusatz;
        
        push(@ary,%hash);
    }
    $sth->finish();
              $dss->updatePLZInformationen(@ary);

[download]
And here is the function that's called and is doing the actual SOAP stuff: 
sub updatePLZInformationen() {
    my @data = shift;
    
    my $plz = SOAP::Lite
    -> service('file:/home/orca/oracle/DataSyncTool/config/SKADataServ
+ice.wsdl');
    
    my $serializer = $plz->serializer();
    
    print($serializer->envelope(
                              method => 'updatePLZInformationen',  
                              SOAP::Data->type("xsd:string")->name( "c
+lientid"    => "test" ),
                              SOAP::Data->type("xsd:string")->name( "s
+ecuritytoken" => "test" ),
                              SOAP::Data->type("tns2:PLZInfo")->name("
+plzinfos")->value(
                                \SOAP::Data->value(&format_plz_infos(@
+data)))));
    
    $plz->updatePLZInformationen();
}
# --------------------------------------------------------------------
+---------------------------- #

sub format_plz_infos() {
    my @plz = shift();
    my @plz_info;
    
    foreach(@plz) {
        my $hash = $_;
        
        push(@plz_info,SOAP::Data->name("kurzname")->value($hash->{"ku
+rzname"})->type("xsd:string"));
        push(@plz_info,SOAP::Data->name("plz")->value($hash->{"plz"})-
+>type("xsd:string"));
        push(@plz_info,SOAP::Data->name("stadt")->value($hash->{"stadt
+"})->type("xsd:string"));
        push(@plz_info,SOAP::Data->name("status")->value($hash->{"stat
+us"})->type("xsd:string"));
        push(@plz_info,SOAP::Data->name("typ")->value($hash->{"typ"})-
+>type("xsd:string"));
        push(@plz_info,SOAP::Data->name("zusatz")->value($hash->{"zusa
+tz"})->type("xsd:string"));
    }
    
    return(@plz_info);
}
# --------------------------------------------------------------------
+---------------------------- #

[download]
And this is my SOAP-message: 
?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope 
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" 
xmlns:xsd="http://www.w3.org/2001/XMLSchema" 
soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" 
xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">

<soap:Body><updatePLZInformationen>
<clientid xsi:type="xsd:string">test</clientid>
<securitytoken xsi:type="xsd:string">test</securitytoken>
<plzinfos xsi:type="tns2:PLZInfo">
<kurzname xsi:nil="true" xsi:type="xsd:string" />
<plz xsi:nil="true" xsi:type="xsd:string" />
<stadt xsi:nil="true" xsi:type="xsd:string" />
<status xsi:nil="true" xsi:type="xsd:string" />
<typ xsi:nil="true" xsi:type="xsd:string" />
<zusatz xsi:nil="true" xsi:type="xsd:string" />
</plzinfos>
</updatePLZInformationen>
</soap:Body>
</soap:Envelope>

[download]
The message looks good, but it has no values... I'm reading my code for about an hour now, but I don't seem to get the mistake. :-(

Thanks in advance,

Thion

In reply to Re^2: Problems with SOAP::Lite client by thion
in thread Problems with SOAP::Lite client by thion

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.