如何从 SOAP::Lite 中的复杂 SOAP::D ATA 结构中获取属性

Question

我无法使用 SOAP：：Lite 从 SOAP 响应中获取简单的属性值。在 SOAP：:D ata 的代码和输出下方。我正在尝试获取属性//response/dirn/attr/uuid 的值

my $cm = new SOAP::Lite
  uri => 'http://www.cisco.com/AXL/API/1.0',
  proxy => "https://10.0.0.1:8443/axl/";
my $res = $cm->getPhone(
  SOAP::Data->name(phoneName => 'SEP00270D3D7A4C'),
);
for my $i ($res->valueof('//device/lines/line')) {
  print Dumper($i);
  #print $i->{dirn}->{attr}->{'uuid'}."n"; # line below give me an error
}

这里是 Data：:D umper 的输出。我实际上有请求的值，但我无法通过 SOAP：:D ata 获取它

$VAR1 = bless( {
'_signature' => [],
'_value' => [
  bless( {
    '_name' => 'dirn',
    '_signature' => [],
    '_value' => [
      ''
    ],
    '_prefix' => '',
    '_attr' => {
      'uuid' => '{615C3550-1EFD-56C7-3788-2AA8725880E3}' #!!!!!!!!!!!!!!!!!!!!!!!!!!
    }
  }, 'SOAP::Data' ),
],
'_attr' => {}
}, 'SOAP::Data' );

我花了大约几个小时试图获取此属性值。我已经考虑使用Data：:D umper的输出来获得快速和肮脏的hack的值。

提前致谢

PS：SOAP 服务器是思科 CUCM 6.1.5

Answer 1

$$i->value->attr->{uuid}

Answer 2

$i->{'_value'}[0]{'uuid'} 

不过，我认为我不确定 [0]。

Answer 3

我有同样的问题，但找不到"快速简便"的解决方案。我开发了一个Perl库模块来使用某些供应商的Web服务（WSDL）。我已经做过许多这样的 Web 服务接口，但直到现在 - 所有数据都作为 XML"元素"返回。相反，此特定 Web 服务将大部分数据作为 XML 元素返回，但也将一些数据设置为 XML 属性。我无法获取作为属性返回的值 - 因为 SOAP：:D ata 方法（valueof（）、body（） 等）只返回 XML 元素的值，而不返回关联的属性。

这个问题与之前发布的问题略有不同 - 因为我事先不知道正在返回的XML结构（给定Web服务提供了许多不同的方法，并且每个方法都有不同的响应）。

所以问题是 - 如何获取通用响应 SOAP 数据的所有 XML 数据（元素和属性）

Answer 4

我最近经历了同样的事情并找到了答案，请参阅我的问题和评论部分中的更新答案。 提取 CDATA 中的特定 XML 元素，这些元素取自 SOAP：：Lite Response Hash