perl - 转储 XML::LibXML 元素

Question

我想转储 xml 文档树，类似于转储 perl 数据类型的方式。

use Data::Dumper;
print Dumper($foo);

递归转储 $foo 包含的结构(即使存在循环依赖)。

然而

use XML::LibXML;
my $parser = XML::LibXML->new();
my $doc    = $parser->parse_file($filename);
my @nodes  = $doc->findnodes($path);
foreach(@nodes)
{
    print Dumper($_);
}

只打印像

这样的东西

$VAR1 = bless( do{\(my $o = 46232224)}, 'XML::LibXML::Element' );

我想要一棵 LibXML 树——代表 XML 结构的元素。

Answer 1

您可以使用 LibXML::Node 的 serialize 方法:

use XML::LibXML;
my $parser = XML::LibXML->new();
my $doc    = $parser->parse_file($filename);
my @nodes  = $doc->findnodes($path);
foreach my $node (@nodes)
{
    print $node->serialize;
}