下面的代码不打印输出

Question

我想使用 perl 解析 xml 文件，我想检索 Audit 标签的值，但没有产生输出。

use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

my $xml = <<'__EOI__';
<scanJob>
   <hosts>
      <host>
        <audit>
           <rthID>31406</rthID>
           <cve>N/A</cve>
           <cce>N/A</cce>
           <iav>N/A</iav>
           <name>OpenSSH Memory Corruption Vulnerability - (20131108) - Banner</name>
           <description>OpenSSH 6.4 </description>
           <pciReason>Default</pciReason>
           <pciPassFail>Pass</pciPassFail>
           <cvssScore>N/A</cvssScore>
           <fixInformation>Upgrade OpenSSH 6.4 or later.</fixInformation>
           <exploit>No</exploit>
           <context>TCP:22</context>
        </audit>
     </host>
  </hosts>
</scanJob>
__EOI__

my $xs = new XML::Simple;

my $data = $xs->XMLin(\$xml);
for my $scanJob (@{$data->{scanJob} }) {
                for my $hosts (@{$scanJob->hosts }) {
                for my $host (@{$hosts->host }) {
                        for my $audit (@{$host->audit }) {
                                my $rthID   = $audit->{rthID};
                                print $rthID;
                        }
                }
        }
}

Answer 1

您的代码有几个问题，其中一些是由于 XML::Simple：

• XML::Simple 创建哈希，你不能说$host->audit，你需要$host->{audit}（和host一样）
• 您是否使用 Data::Dumper 打印了$data？创建的不是您所期望的，顶级 (scanJob) 不是由 XML::Simple 创建的，某些级别被转换为哈希，而不是数组，因为您没有使用超级重要的@987654326 @ option, a;所以元素之一是 name 的事实在最低级别创建了一个哈希

坦率地说，如果你想提取rthID 的值，我的菜XML::Simple 并使用XML::LibXML、XML::Twig 或XML::XSH2，就不会那么头疼了：

use XML::Twig;
XML::Twig->new( twig_handlers => { rthID => sub { print $_->text, "\n"; } })
         ->parsefile( $file1);

或

use XML::LibXML;
my $data= XML::LibXML->load_xml(location => $file1);
foreach my $rthid (@{$data->findnodes( '//rthID')})
  { print $rthid->textContent, "\n"; }

我相信 XSH2 解决方案很快就会出现在这个帖子中；--)