1

我正在为 Perl (v5.24.1) SOAP::Lite 苦苦挣扎。我正在尝试将元素添加到现有的 Data 元素。

假设我有以下构造：

use SOAP::Lite + qw/ trace /;  
my $soap = SOAP::Lite->new( proxy => 'http://soap.server.com');
$soap->on_action( sub { "http://tempuri.org/some" });
$soap->autotype(0)->readable(1);
$soap->default_ns('http://tempuri.org/');
$som = $soap->call('GetItems', SOAP::Data->name('Store')->attr( { 'xmlns'    => 'Some.Structs'} )->value(
\SOAP::Data->value(
 SOAP::Data->name('Items')->value(
  \SOAP::Data->value(
   SOAP::Data->name('Available')->value('false'),
   SOAP::Data->name('Apple')->value('1'),
   SOAP::Data->name('Orange')->value('2'),
  )),
 )),   
);

但现在我想添加 'N' 个Items元素，我想根据条件在循环中添加这个，这只是一个例子，我尝试了以下方法：

 use SOAP::Lite + qw/ trace /;  
 my $soap = SOAP::Lite->new( proxy => 'http://soap.server.com');
 $soap->on_action( sub { "http://tempuri.org/some" });
 $soap->autotype(0)->readable(1);
 $soap->default_ns('http://tempuri.org/');

 my $data1= (SOAP::Data->name('Store')->attr( { 'xmlns' => 'Some.Structs'} )->value(
   \SOAP::Data->value(
    SOAP::Data->name('Items')->value(
     \SOAP::Data->value(
     SOAP::Data->name('Available')->value('false'),
     SOAP::Data->name('Apple')->value('1'),
     SOAP::Data->name('Orange')->value('2'),
    )),
  )),   
 );
 my $data2= (SOAP::Data->name('Store')->attr( { 'xmlns' => 'Some.Structs'} )->value(
   \SOAP::Data->value(
    SOAP::Data->name('Items')->value(
     \SOAP::Data->value(
     SOAP::Data->name('Available')->value('true'),
     SOAP::Data->name('Bananas')->value('4'),
     SOAP::Data->name('Pineapple')->value('2'),
    )),
  )),   
 );

现在尝试添加元素

push $data1->value, data2;

或者

push ($data1,$data1);

返回是： 现在禁止对标量进行实验性推送....

最后，当元素加入时，我想发送它们，但我不确定这是否可行：

$som = $soap->call('GetItems', $data1);

任何帮助将非常感激 ....

4

2 回答 2

1

将元素附加到已经存在的 SOAP::Data 复杂类型中的答案使用了实验性的取消引用样式（现已修复）。您需要使用以下语法：

push @{ $data1->value }, $data2

Items要在事后追加到列表中，您可以使用以下方法手动遍历您在上面构建的数据结构并追加到相关列表中：

push @{ ${ ${ $data1->value }->value->value }->{_value} }, $data2;

但是我认为只有在将所有有效负载数据放在一起后才构建 SOAP 数据会好得多。在循环的情况下，改为按如下方式构建程序：

my @payload;
for my $item (@items) {
    push @payload, SOAP::Data->name( $item->{name} )->value( $item->{count}) if $item->{wanted};
};

my $soap = SOAP::Data->value( \@payload );
于 2018-10-03T15:44:57.353 回答
0

在上面的示例中，我尝试过

push @{ $data1->value }, $data2;

但这导致

不是 .. 的 ARRAY 参考

正如上面所建议的，我将构建我的数据，如：

my @payload;
push @payload, SOAP::Data->name('Store')->attr( { 'xmlns' => 'Some.Structs'} 
 )->value(
 \SOAP::Data->value(
 SOAP::Data->name('Items')->value(
  \SOAP::Data->value(
  SOAP::Data->name('Available')->value('false'),
  SOAP::Data->name('Apple')->value('1'),
  SOAP::Data->name('Orange')->value('2'),
 )),
));

#Now add the next element
push @payload, SOAP::Data->name('Store')->attr( { 'xmlns' => 'Some.Structs'} 
)->value(
\SOAP::Data->value(
 SOAP::Data->name('Items')->value(
  \SOAP::Data->value(
  SOAP::Data->name('Available')->value('false'),
  SOAP::Data->name('Orange')->value('1'),
  SOAP::Data->name('Pianaple')->value('2'),
 )),
));
$som = $soap->call('GetItems', \@payload);
于 2018-10-03T17:28:44.410 回答