如何使用XPath和Perl检索属性

Question

我有以下XML结构：

<RECORD>
<TYPE ID="check_ping">
<HOSTS>
<HOST H="192.168.0.1" W="50,1%" C="100,1%" />
<HOST H="192.168.0.2" W="50,1%" C="70,1%" />
</HOSTS>
</TYPE>
<TYPE ID="check_ssh">
<HOSTS>
<HOST H="192.168.0.3" P="21"/>
<HOST H="192.168.0.4" P="21"/>
<HOST H="192.168.0.4" P="21"/>
</HOSTS>
</TYPE>
....
</RECORD>

我还有一个应该读取该XML的Perl脚本，我正在使用 XML :: XPath模块。

use XML::XPath;
#.....
my $xp = XML::XPath->new(filename => 'test.xml');
#RETRIEVE ALL HOSTS WITH CHECK_SSH
my $querysshh = '/RECORD/TYPE[@ID="check_ssh"]/HOSTS/HOST';
$nodeset = $xp->find($querysshh);
foreach $mynode ($nodeset->get_nodelist) {
#HOW DO I RETRIEVE ATTRIBUTES NOW?
}
#.....

如何检索这些节点的属性？例如，如果我想阅读 H 和 P 我需要做什么？我查看了模块文档，但我找不到任何有用的方法。

Answer 1

尝试$myNode->getAttribute("H")是否有效。

Answer 2

正如马丁指出的那样，getAttribute方法应该可以正常工作。您可以在XML::XPath::Node::Element文档中找到其他可用的方法。