Comment rechercher les éléments enfants d'un parent spécifié à l'aide de XML :: LibXML?

Question

Supposons que j'ai un fichier 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> 

Je veux obtenir les éléments enfants de l'élément table. c'est-à-dire que la sortie devrait être person, student et employee. Comment faire cela avec le module XML::LibXML en Perl?

Answer 1

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

ou

use XML::LibXML qw(XML_ELEMENT_NODE); 

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