perl - 循环 XML::Simple 结构

Question

所以我有一些像这样的 xml 文件:

<?xml version="1.0" encoding="ISO-8859-1"?>
<root result="0" >
    <settings user="anonymous" >
            <s n="blabla1" >
                    <v>true</v>
            </s>
            <s n="blabla2" >
                    <v>false</v>
            </s>
            <s n="blabla3" >
                    <v>true</v>
            </s>
    </settings>
</root>

我想使用 XML Simple 来完成所有设置。

这是我使用 Data::Dumper 打印输出时得到的结果:

$VAR1 = {
      'settings' => {
                      'user' => 'anonymous',
                      's' => [
                               {
                                 'n' => 'blabla1',
                                 'v' => 'true'
                               },
                               {
                                 'n' => 'blabla2',
                                 'v' => 'false'
                               },
                               {
                                 'n' => 'blabla3',
                                 'v' => 'true'
                               }
                             ]
                    },
      'result' => '0'
    };

这是我的代码

 $xml = new XML::Simple;
 $data = $xml->XMLin($file);
 foreach $s (keys %{ $data->{'settings'}->{'s'} }) {
  print "TEST: $s $data->{'settings'}->{'s'}->[$s]->{'n'} $data->{'settings'}->{'s'}->[$s]->{'v'}<br>\n";
 }

它返回这两行，没有循环:

TEST: n blabla1 true
TEST: v blabla1 true

我也尝试过做这样的事情:

foreach $s (keys @{ $data->{'settings'}->{'s'} }) {

没有任何成功:

Type of arg 1 to keys must be hash (not array dereference) 

我可以打印:

$data->{'settings'}->{'s'}->[1]->{'n'} $data->{'settings'}->{'s'}->[1]->{'v'}

对于每个设置，但我无法循环它们。

我该如何继续？我做错了什么？

非常感谢!

Answer 1

注意转储中的方括号:涉及一个数组。

for (@{ $data->{settings}{s} }) {
    print $_->{n}, ' ', $_->{v}, "\n";
}

如果您不想对 n 和 v 进行硬编码，只需在取消引用的哈希引用上运行 keys 即可:

for my $s (@{ $data->{settings}{s} }) {
    print join(', ', map "$_ = $s->{$_}", keys %$s), "\n";
}