Perl XML::简单用于解析内部节点

Question

我想解析我在这里的XML文件并打印internal元素的id属性。

这是 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'
                                             }
                                    }
                      }
              }
    };

Answer 1

添加

ForceArray => [qw( node internal )]

法典：

my $doc = XMLin($xml,
   ForceArray => [qw( node internal )],
   KeyAttr    => [qw( id )],
);
print(Dumper($doc));
my $nodes = $doc->{node};
for my $node_key ( sort { $a <=> $b } keys %$nodes ) {
   my $node = $nodes->{$node_key};
   my $internals = $node->{internal};
   for my $internal_key ( sort { $a <=> $b } keys %$internals ) {
      print("$internal_keyn");
      # my $internal = $internals->{$internal_key};
      # print("$internal->{name}n");
   }
}

Answer 2

代码：

#!/usr/bin/perl -w
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
my $xml=new XML::Simple;
my $doc=$xml->XMLin(&get_str(),ForceArray => ['internal'],KeyAttr => 'id');
print Dumper($doc);
    
sub get_str {
  return qq#<?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>#;
}

输出：

$VAR1 = {
      'name' => 'A',
      'node' => {
                '11' => {
                        'name' => 'test1',
                        'internal' => {
                                      '111' => {
                                               'name' => 'A111'
                                             }
                                    }
                      },
                '12' => {
                        'name' => 'B',
                        'internal' => {
                                      '122' => {
                                               'name' => 'B122'
                                             },
                                      '121' => {
                                               'name' => 'B121'
                                             }
                                    }
                      }
              }
    };

原因：

注 1："KeyAttr"的默认值为 ["名称"、"密钥"、"id"]。如果不希望在输入时折叠或在输出时展开，则必须将此选项设置为空列表以禁用该功能。

注2：如果要使用此选项，还应启用"强制阵列"选项。如果没有"ForceArray"，单个嵌套元素将被汇总到标量而不是数组中，因此不会被折叠（因为只有数组被折叠）。