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

Question

假设我有

<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元素的子元素的XML文件。即，输出应为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(); 
}