wcf - 在 perl 中访问 wcf 服务响应

Question

我编写了一个 perl 脚本来访问返回复杂数据的 wcf 服务方法。我能够看到来自 wcf 服务的 xml 模式响应（在 perl 中使用 dumper）。但我无法访问架构中的值：

 $response1= $soap->GetAddress
(SOAP::Data->new(name=>'mailAddress',value=>[SOAP::Data->new (name=>'a:city'),
SOAP::Data->new (name=>'a:name'),SOAP::Data->new (name=>'a:streetaddress'),SOAP::Data->new 
(name=>'a:zipcode')])->attr({'xmlns:a'=>$xmlns}))->result;

我正在使用它来访问服务中的方法。如何从 中读取值$response1？

$响应1：

 $VAR1 = {
      'city' => 'Hyd',
      'streetaddress' => 'ECIL',
      'name' => 'Avinash Patil',
      'zipcode' => '5000012',
      'state' => 'AP'
  };

Answer 1

$response1=$soap->getCustomer(SOAP::Data->new(name => 'customerid', value =>$custid))->result;
print $response1->{'Email'};
print "\n";
print $response1->{'Mobile'};
print "\n";

Answer 2

尝试使用这个：

my @values;

my $value[0]= $soap->'Method-name'($header,$data)->valueof('//city');
my $value[1]= $soap->'Method-name'($header,$data)->valueof('//streetaddress');
my $value[2]= $soap->'Method-name'($header,$data)->valueof('//name');
my $value[3]= $soap->'Method-name'($header,$data)->valueof('//state');