XML::LibXML:在perl中提取XML标记的子级和granchildren

Question

Xml数据：

<libraries>
<group name="stdcell_globalsubtypes">
<cell type="a" optional="1">
<cell type="b" optional="1">
<cell type="c" optional="1" >
<cell type="d" optional="1" >
<cell type="e" optional="1"/>
</cell>
</cell>
</cell>
</cell>
</group>

我如何访问组name＝"的所有子节点和孙节点；"stdcell_globalsubtypes"；而不必使用getChildrenByTagName("cell"(解析每个子节点。

我需要解析这个xml数据，并将其散列为%hash=('1'=>a，'2'=>b，'3'=<c，'4'=>d，'5'=>

是否有任何API来获取所有子节点和子节点？如果没有，我如何递归地执行它？

提前感谢：(

Answer 1

我不是XML专家。。。可能有一种更有效的方法来解决这个问题，但有一种方法是使用递归函数

use strict;
use warnings 'FATAL', 'all';
use XML::LibXML;
sub extract_cell_types {
my $node = shift;
my @return_array;
my @cells = $node->getChildrenByTagName("cell");
for my $cell (@cells) {
my $type = $cell->getAttribute("type");
push @return_array, $type;
if ($cell->hasChildNodes) {
push @return_array, extract_cell_types($cell);
}
}
return @return_array;
}
my $doc = XML::LibXML->load_xml(string => <<'END');
<doc>
<group name="stdcell_globalsubtypes">
<cell type="a" optional="1">
<cell type="b" optional="1">
<cell type="c" optional="1" >
<cell type="d" optional="1" >
<cell type="e" optional="1"/>
</cell>
</cell>
</cell>
</cell>
</group>
</doc>
END
my $doce = $doc->getDocumentElement;
my @types;
my @groups = $doce->getChildrenByTagName("group");
for my $gn (@groups) {
if ($gn->getAttribute("name") eq "stdcell_globalsubtypes") {
push @types, extract_cell_types($gn);
}
}
print join(', ', @types) . "n";