[已解决]使用xml::simple解析xml，取值遇到问题，请高手指点，谢谢！！！

lishaohua119

我用xml::simple解析xml文件得到如下结构的数据，请问我要如何将instance的内容取到？目前我参考了网上employee处理的实例代码，还是遇到困难，请大侠指点一下，不胜感激！！！！

ABCDEF.zip (1.17 KB, 下载次数: 26)

2010-07-09 15:15 上传

点击文件名下载附件
abcdef

iakuf

看看 Perl 有关引用的资料。这就是一个解引用的过程

lishaohua119

多谢iakuf的指点，我是使用下面代码来取值的，但是值取不到，不知道是什么问题？？

有个困惑，在我的数据结构中有两个并行的VALUE.OBJECT值，一个里面有INSTANCE，一个是没有的，我需要在取有INSTANCE里面的VALUE.OBJECT里面所有的INSTANCE值.

#!/usr/bin/perl

# use module
use XML::Simple;
use Data::Dumper;

# create object
$xml = new XML::Simple (KeyAttr=>[]);

# read XML file
$data = $xml->XMLin("sample.xml");

print Dumper($data);

# dereference hash ref
# access <INSTANCE> array
foreach $e (@{$data->{ARATION}->{GROUP}->{VALUE.OBJECT}->{INSTANCE}})
{
        print $e->{CLASSNAME}, "\n";
        print "PROPERTY: ", $e->{PROPERTY}->{VALUE}, "\n",";
        }

iakuf

'GROUP'  后面是个数组。不是 hash

iakuf

发代码，要选择禁用 smilies,不然很难看

lishaohua119

已经禁用 smilies。

iakuf 能否帮忙指出该怎么修改？由于是个新手，这个case又比较急，只能这样后着脸皮发问了

q15928

可以附上XML文件看看吗？

lishaohua119

哪位大哥能帮忙指点一下，不胜感激！！！

lengchun10

我不太会perl,随便写的，错了别见怪。

my $count=0;

while ($data->{ARATION}->{GROUP}->{VALUE.OBJECT}->{INSTANCE}->[$count]){
       $e=$data->{ARATION}->{GROUP}->{VALUE.OBJECT}->{INSTANCE}->[$count];
        print $e->{CLASSNAME}, "\n";
        print "PROPERTY: ", $e->{PROPERTY}->{VALUE}, "\n",";
       $count++;
   }

lishaohua119

谢谢 lengchun10 的热心帮忙，我run下来还是取不到值，我有一个疑问，我的数据解析之后，GROUP下面会有两个VALUE.OBJECT,其中一个是有INSTANCE的，一个是没有的，我不知道$data->{ARATION}->{GROUP}->{VALUE.OBJECT}->{INSTANCE}->[$count] 这个能不能正确的指到我要的数据，这是我的困惑，不知道有人能帮忙解答一下吗？