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

That is confusing. Instead of this 
        push(@ary,%hash);

[download]
you probably meant 
    push @ary, \%hash;

[download]
but then you probably meant 
   $dss->updatePLZInformationen(%hash);

[download]
instead. I could probably guess what you're really after, but its better if you pseudocode/diagram what you wish to accomplish, before writing actual code.

Replies are listed 'Best First'.
Re^4: Problems with SOAP::Lite client
by thion (Initiate) on Dec 15, 2008 at 08:06 UTC
    Hi,

    ok, I'll try to explain:
    I walk through a database table and build a hash for each record in my resultset. This hash is pushed into an array. When the data-collecting is finished I call a subroutine (updatePLZInformationen()) to make the soap-call and pass the array of hashes. Ths subroutine calls another subroutine to format the complex type "plzinfo". Then it calls the soap-server. That's about it.
    But somewhere in the subroutines my values get lost...
    I'm sure it's just some stupid mistake, but I don't get it...
    Thanks again,

    Thion
[reply]
      Well thats not detailed enough to be pseudocode, but OK, if you really want to stick with that strategy, here it is:
      Read more... (7 kB)
      I suggest a refresher of perlsub/perldata.
[reply]
[d/l]
[select]
        Hi,

        thanks for all the help. I definitely will do a refresher of perlsub/perldata.
        I built your suggestions into my code.
        Read more... (4 kB)
        And here's the output:
        test@testmachine:~/test/DataSyncTool> ./data_sync_tool.pl
16:12:2008 09:14:13, DEBUG: Programm gestartet...
16:12:2008 09:14:13, DEBUG: updatePLZInformationen => Data of plz tabl
+e:
1 => 01001 => Dresden => Dresden =>  => 1 => 3
2 => 01002 => Dresden => Dresden =>  => 1 => 3
3 => 01003 => Dresden => Dresden =>  => 1 => 3
4 => 01004 => Dresden => Dresden =>  => 1 => 3
DataSyncTool: HASH(0x86d81f8) HASH(0x8740d38) HASH(0x88058c0) HASH(0x8
+805920)
Yeehah: DatenService=HASH(0x8743344)
Yeehah: DatenService=HASH(0x8743344)
16:12:2008 09:14:13, DEBUG: updatePLZInformationen => FEHLER:
Not an ARRAY reference at data_service.pm line 161.

16:12:2008 09:14:13, DEBUG: updatePLZInformationen => Fertig.

        [download]
        The error message is in the subroutine format_plz_infos(): 
        foreach(@$plz) {
...
}

        [download]
        I'm no perl specialist, unfortunately, and I surely have a lack of basics, but I really need some advice to get this client working... :-/

        Thanks in advance,

        Thion
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom