我正在尝试解析一个 XML 文件以找到一个特定的值。这是 XML:

<?xml version="1.0"?>
<dump>
 <folder id="A0">
  <folder id="A1">
   <setting id="setting0">
    <sequence id="sequence0">
     <group name="info">
      <variable name="foo" value="15"/>
     </group>
    </sequence>
   </setting>
  </folder>
 </folder>
</dump>

Data::Dumper 产生

$VAR1 = {
          'folder' => {
                      'id' => 'A0',
                      'folder' => {
                                  'setting' => {
                                               'sequence' => {
                                                             'group' => {
                                                                        'variable' => {
                                                                                      'value' => '15',
                                                                                      'name' => 'foo'
                                                                                    },
                                                                        'name' => 'info'
                                                                      },
                                                             'id' => 'sequence0'
                                                           },
                                               'id' => 'setting0'
                                             },
                                  'id' => 'A1'
                                }
                    }
        };

我的目标是生成一份报告，内容如下:“foo 在 A0/A1/setting0/sequence0 处的值为 15”。注意我想使用 id s 引用指向 foo 位置的“面包屑”路径.

目前我在这个示例 XML 中访问值“15”

use strict;
use warnings;
use XML::Simple;

my $xml = new XML::Simple;
my $data = $xml -> XMLin('test1.xml');
print $data -> {folder}{folder}{setting}{sequence}{group}{variable}{value};

(但是，如果有多个 <variable> ，这将不起作用，并且会有......但这不是我的主要挑战......)

问题是 XML 将包含不可预测的嵌套 <folder> s，我不知道如何找到 <variable>与 name="foo" 一起存在，因为我不知道它有多深。 foo 的多个实例会发生，但每个 sequence 只发生一个.

最后一个小问题是我只能访问 XML::Simple 和 XML::Parser!没有 SAX/Twig/LibXML 等。XML 数据文件的大小可能高达 100MB。

所有这一切现在听起来相当复杂，所以我将重申我的目标:遍历 XML 以查找 <variable> 的任何位置。与 name="foo" 一起存在并报告其value和在树中的位置。感谢您对此的任何帮助。

use strict;
use warnings;
use Twig;

my $twig = new XML::Twig( 
                twig_handlers =>
                   { 'variable[@name="foo"]' => \&variable,
                     group => sub { $_->purge; }  }
                        );
$twig->parsefile( "test.xml");

sub variable
  { my( $t, $var)= @_;
    my $location= join '/', grep { $_ } map { $_->id } reverse $var->ancestors;
    print $var->att( 'name'), " has value ", $var->att( 'value'), " at $location\n";
  }

最佳答案

有什么原因不能安装 XML::Twig 吗？它是一个纯 Perl 模块(依赖于您已安装的 XML::Parser)，因此您始终可以从分发版中复制文件 Twig.pm 作为 myTwig.pm 在你的代码目录中，use myTwig; 瞧瞧。

那么代码就很简单了:

#!/usr/bin/perl

use myTwig;


XML::Twig->new( twig_handlers => { 'variable[@name="foo"]' => \&variable,
                                   # next line if you need to reduce memory footprint
                                   group => sub { $_->purge; }, 
                                 }
         ->parse( \*DATA); # replace with parsefile( 'my.xml') for the real data

sub variable
  { my( $t, $var)= @_;
    my $location= join '/', grep { $_ } map { $_->id } reverse $var->ancestors;
    print $var->att( 'name'), " has value ", $var->att( 'value'), " at $location\n";
  }

__DATA__
<?xml version="1.0"?>
<dump>
 <folder id="A0">
  <folder id="A1">
   <setting id="setting0">
    <sequence id="sequence0">
     <group name="info">
      <variable name="foo" value="15"/>
     </group>
    </sequence>
   </setting>
  </folder>
 </folder>
</dump>

关于xml - 可变嵌套 XML 数据的报告位置，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/11362461/