perl，使用XML解析XML ::简单

Question

解析XML时我做错了什么。 不知何故，我必须迭代两个循环，其中只需要一个循环。我在这里做错了什么？

首先XML数据：

<fishy> 
    <fish displayName   = "Scalar" 
     description   = "the first fish I bought." 
    /> 
    <fish displayName   = "crystal red" 
     description   = "not really a fish." 
    /> 
</fishy> 

然后我的Perl代码：

#!/usr/bin/perl -w 
use strict; 
use XML::Simple; 
use Data::Dumper; 

#Read configuration 
my $simple = XML::Simple->new(); 
my $data = $simple->XMLin('test.xml'); 
print Dumper($data) . "\n"; 


my @fishes = $data->{fish}; 

#This is weird.. Why do we have nested arrays? 
foreach my $fish (@fishes) 
{ 
    foreach my $innerFish (@{$fish}) 
    { 
    print ("\n" . $innerFish->{displayName} . " is " . $innerFish->{description}); 
    } 
    print ("\n"); 
} 

最后的反应（这是罚款）

$VAR1 = { 
      'fish' => [ 
        { 
         'description' => 'the first fish I bought.', 
         'displayName' => 'Scalar' 
        }, 
        { 
         'description' => 'not really a fish.', 
         'displayName' => 'crystal red' 
        } 
        ] 
     }; 


Scalar is the first fish I bought. 
crystal red is not really a fish. 

Answer 1

您创建一个数组元素（对数组的引用）与

my @fishes = $data->{fish}; 

然后你遍历数组中的元素与

foreach my $fish (@fishes) 

这只是一个做

my $fish = $data->{fish}; 

让我们使用，但重命名$fish到$fishes真正奇怪的方式，并$innerFish到$fish。

my $fishes = $data->{fish}; 
for my $fish (@$fishes) { 
    print($fish->{displayName}, " is ", $fish->{description}, "\n"); 
} 

不要忘记使用ForceArray => [qw(fish)]选项，以确保代码工作时，你只有一条鱼。

Answer 2

my @fishes = @{$data->{fish}};