我正在尝试执行一个简单的Perl程序,该程序使用
XML::Simple打印出XML文件中的数据.
但是,我得到的错误是:
但是,我得到的错误是:
no element found at line 15,column 0,byte 308 at /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/XML/Parser.pm line 185
XML文件如下:
<?xml version="1.0"?> <customer-data> <customer> <first_name>Frank</first_name> <last_name>Sanbeans</last_name> <dob>3/10</dob> <email>frank@example.com</email> </customer> <customer> <first_name>Sandy</first_name> <last_name>Sanbeans</last_name> <dob>4/15</dob> <email>sandy@example.com</email> </customer>
而且,我的perl代码是:
use strict; use XML::Simple; my $xml = XMLin('./test.xml',forcearray => 1); foreach my $customer (@{$xml->{customer}}) { print "Name: $customer->{first_name}->[0] "; print "$customer->{last_name}->[0]\n"; print "Birthday: $customer->{dob}->[0]\n"; print "E-mail Address: $customer->{email}->[0]\n"; }
怎么解决这个问题?
谢谢.
解决方法
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。