我无法使用 SOAP::Lite 从 SOAP 响应中获取简单的属性值。下面是 SOAP::Data 的代码和输出。我正在尝试获取属性的值 //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::Dumper 的输出。我实际上有请求的值,但我无法通过 SOAP::Data 获得它
$VAR1 = \bless( {
'_signature' => [],
'_value' => [
bless( {
'_name' => 'dirn',
'_signature' => [],
'_value' => [
''
],
'_prefix' => '',
'_attr' => {
'uuid' => '{615C3550-1EFD-56C7-3788-2AA8725880E3}' #!!!!!!!!!!!!!!!!!!!!!!!!!!
}
}, 'SOAP::Data' ),
],
'_attr' => {}
}, 'SOAP::Data' );
我花了大约几个小时试图获得这个属性值。我已经在考虑使用 Data::Dumper 的输出来获得快速而肮脏的 hack 的价值。
提前致谢
PS:SOAP 服务器是 Cisco CUCM 6.1.5