XML ::简单，唯一的名称

Question

我有一个很难作出的Perl脚本正确解析，它看起来像下面的XML文件：

<Report name="NAME"> 
<ReportHost name="UNIQUE_1"><HostProperties> 
<tag name="TAG_1">tag_value</tag> 
<tag name="TAG_2">tag_value</tag> 
</ReportHost> 
<ReportHost name="UNIQUE_2"><HostProperties> 
<tag name="TAG_1">tag_value</tag> 
<tag name="TAG_2">tag_value</tag> 
</ReportHost> 

现在，我需要能够调用这些UNIQUE_n不知何故，但我无法管理。自卸车返回如下所示的结构：

'Report' => { 
      'ReportHost' => { 
          'UNIQUE_1' => { 
              'HostProperties' => { 
                   'tag' => { [...] 

我试过ForceArray，但不能让ReportHost数组和惨败。

Answer 1

你说你无法让Perl“正确解析”XML但是你不会说你想要什么样的结果。暂且不论事实，你的示例XML缺少一些关闭标签，也许你想是这样的：

my $report = XMLin(\*DATA, 
    ForceArray => [ 'ReportHost', 'tag' ], 
    KeyAttr => { tag => 'name' }, 
    ContentKey => '-content', 
); 

print Dumper($report); 

其中给出：

$VAR1 = { 
     'ReportHost' => [ 
         { 
         'HostProperties' => { 
              'tag' => { 
                'TAG_1' => 'tag_value', 
                'TAG_2' => 'tag_value' 
                } 
              }, 
         'name' => 'UNIQUE_1' 
         }, 
         { 
         'HostProperties' => { 
              'tag' => { 
                'TAG_1' => 'tag_value', 
                'TAG_2' => 'tag_value' 
                } 
              }, 
         'name' => 'UNIQUE_2' 
         } 
        ], 
     'name' => 'NAME' 
}; 

，你可以通过这样的数据循环：

my $report_hosts = $report->{ReportHost}; 
foreach my $report_host (@$report_hosts) { 
    print "Report: $report_host->{name}\n"; 
    my $props = $report_host->{HostProperties}->{tag}; 
    print " TAG_1: $props->{TAG_1}\n"; 
    print " TAG_2: $props->{TAG_2}\n"; 
} 

我会建议using a different module虽然:-)