XML::Simple无法正常解析

tsubasawzj

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use XML::Simple;
   
6. use encoding "utf-8";
   
7. use Data::Dumper;
   
8. my $parser=XML::Simple->new(suppressempty =>'');
   
9. my $data=$parser->XMLin("09_00243.xml");
   
10. 
    
11. while($data->{chapters}->{chapter}->[$count]){
    
12.     my $e=$data->{chapters}->{chapter}->[$count];
    
13.     print "$e->{chapterName}";
    
14. }

复制代码

解析附件里的xml文件时，返错如下，
Not an ARRAY reference at xmlSimpleCheck.pl 11

XML::Simple在解析时为何无法解析出所有{chapter}呢？

socyno

不是解析有问题，应该是你弄错了吧。可用用 Data:ump 看看解析出来的数据就明白啦

tsubasawzj

回复 2# socyno


   我用 Data:umper看过了，chapter只有一个。这样的结果肯定不对。。

yybmsrs

$count没定义，另外用while是个死循环