Datenstruktur mit SOAP::Data - #138298 (Fragen zu Perl-Modulen)

topeg

2010-06-14 02:50

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Schau mal hier: msg #137607 Speziell:

Quote
- Der Parameter für SOAP::Data->value($param) muss immer eine
Referenz sein - entweder eine Array-Referenz [] oder eine Referenz auf
ein Objekt ...

Und vergleiche das mit:

Guest bianca

Code (perl): (dl )

      SOAP::Data -> name ($key) -> value ($data_to_send_in_soap_map{$key}),

Code (perl): (dl )

SOAP::Data -> name ('params') -> value (@soap_map)

Ich würde vermuten, dass es so richtig ist:

Code (perl): (dl )

      \SOAP::Data -> name ($key) -> value ($data_to_send_in_soap_map{$key}),

Code (perl): (dl )

SOAP::Data -> name ('params') -> value(\@soap_map);

vollständiger Code:

Code (perl): (dl )

#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;
use SOAP::Lite;
my %data_to_send_in_soap_map = (
  'country' => 'NL',
  'step' => '1',
);

my (@soap_map,@params);
foreach my $key (keys %data_to_send_in_soap_map) {
  push @soap_map,
    \SOAP::Data->name('item')->value([
      SOAP::Data->name('key')->value($key),
      SOAP::Data->name('value')->value($data_to_send_in_soap_map{$key})
    ]);
}

@params = (
  SOAP::Data->name('params')->type('ns2:Map')->value(\@soap_map)
);

print Dumper (\@params);

EDIT:
Code korrigiert
Last edited: 2010-06-14 04:02:47 +0200 (CEST)