wcf - perlでwcfサービスの応答にアクセスする

Question

複雑なデータを返すwcfサービスメソッドにアクセスするためのperlスクリプトを作成しました。wcfサービスからのxmlスキーマ応答を見ることができます（perlのダンパーを使用）。しかし、スキーマから値にアクセスできません。

 $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ですか？

$ response1：

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

Answer 1

これを使用してみてください：

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');

Answer 2

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