我想解析我在这里拥有的 XML 文件并打印元素的id
属性。internal
这是 XML 文件
<?xml version="1.0"?>
<!DOCTYPE test SYSTEM "http://www.kegg.jp/kegg/xml/KGML_v0.7.1_.dtd">
<test name="A" >
<node id="11" name="test1" >
<internal id="111" name="A111"/>
</node>
<node id="12" name="B">
<internal id="121" name="B121"/>
<internal id="122" name="B122"/>
</node>
</test>
这是代码,当一个节点有两个内部属性时它会失败
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
my $xml=new XML::Simple;
my $doc=$xml->XMLin("test.xml",KeyAttr => ['id']);
print Dumper($doc);
foreach my $node ( sort keys %{$doc->{node}} ) {
print $doc->{node}->{$node}->{internal}->{id}."\n";
}
这是自卸车的样子
$VAR1 = {
'name' => 'test1',
'node' => {
'11' => {
'name' => 'A',
'internal' => {
'name' => 'A111',
'id' => '111'
}
},
'12' => {
'name' => 'B',
'internal' => {
'122' => {
'name' => 'B122'
},
'121' => {
'name' => 'B121'
}
}
}
}
};