2

所以我有一些这样的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'}

对于每个设置，但我无法遍历它们。

我该如何进行？我究竟做错了什么？

非常感谢！

4

1 回答 1

5

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

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

如果您不想对nand进行硬编码v，只需keys在取消引用的哈希引用上运行：

for my $s (@{ $data->{settings}{s} }) {
    print join(', ', map "$_ = $s->{$_}", keys %$s), "\n";
}
于 2012-06-02T11:14:56.063 回答