如何使用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();
}