如何使用XML::LibXML查找指定父元素的子元素？

Question

假设我有一个 XML 文件

<table>
    <person>
        <ID>1</ID>
        <Name>Adam</Name>
    </person>
    <student>
        <Subject>Math</Subject>
        <Marks>90</Marks>
    </student>
    <employee>
        <ID>7</ID>
        <Name>Bill</Name>
    </employee>
</table>

我想获取table元素的子元素。即输出应为 person、student 和 employee。我如何使用 Perl 中的 XML::LibXML 模块执行此操作？

Answer 1

for my $node ($doc->findnodes('/table/*')) {
    say $node->nodeName();
}

或

use XML::LibXML qw( XML_ELEMENT_NODE );

my $root = $doc->documentElement();
for my $node ( grep { $_->nodeType() == XML_ELEMENT_NODE } $root->childNodes() ) {
    say $node->nodeName();
}

如何使用XML::LibXML查找指定父元素的子元素？

How to find child elements of a specified parent using XML::LibXML?

xml

perl

libxml2

xml-libxml