我有一个数组引用,其中包含一些数组引用.嵌套数组引用还包含数组引用. (这是
XML::Parser的
tree风格.)
my $Filename = "sample.xml"; my $Parser = new XML::Parser( Style => 'tree' ); my $Tree = $Parser->parsefile( $Filename );
解决方法
这是一个简单的版本：
use strict;
use warnings;
sub printElement
{
my ($tag,$content) = @_;
if (ref $content) {
# This is a XML element:
my $attrHash = $content->[0];
print "<$tag>"; # I'm ignoring attributes
for (my $i = 1; $i < $#$content; $i += 2) {
printElement(@$content[$i,$i+1]);
}
print "</$tag>";
} else {
# This is a text pseudo-element:
print $content; # I'm not encoding entities
}
} # end printElement
sub printTree
{
# The root tree is always a 2-element array
# of the root element and its content:
printElement(@{ shift @_ });
print "\n";
}
# Example parse tree from XML::Parser:
my $tree =
['foo',[{},'head',[{id => "a"},"Hello ",'em',"there"]],'bar',[ {},"Howdy",'ref',[{}]],"do"
]
];
printTree($tree);
虽然您可以通过$attrHash访问它们,但这不会打印属性.它也不对文本中的实体进行编码,因此生成的输出可能不会是格式良好的XML.我将这些作为练习留给读者.
