用PERL解析XML怎么出现这个搞不懂得错啊

zhoujianxin

#!/usr/bin/perl -w
use strict;
use XML::Simple;
use Data:umper;
my ($simple,$data);
$simple = new XML::Simple(forcearrary=>;1);
$data = $simple->;XMLin('c:/xml/20030705.xml');
print dump $data;


输出为:
abnormal program termination
说我得程序异常中止,望指点

apile

'c:/xml/20030705.xml'內容呢？

deathcult

forcearrary
ForceArray

deathcult

dump
Dumper

deathcult

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. use XML::Simple;
   
5. use Data::Dumper;
   
6. my ($simple,$data);
   
7. $simple = new XML::Simple(ForceArray =>; 1);
   
8. $data = $simple->;XMLin(\*DATA);
   
9. print Dumper $data;
   
10. 
    
11. __DATA__
    
12. <?xml version="1.0" encoding="utf-8" ?>;
    
13. <web-app>;
    
14.   <servlet>;
    
15.     <servlet-name>;php</servlet-name>;
    
16.     <servlet-class>;net.php.servlet</servlet-class>;
    
17.   </servlet>;
    
18.   <servlet-mapping>;
    
19.     <servlet-name>;net.php.formatter</servlet-name>;
    
20.     <url-pattern>;*.php</url-pattern>;
    
21.   </servlet-mapping>;
    
22. </web-app>;
    

复制代码