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

lishaohua119

回复 7# q15928

xml已经附上，请帮忙看一下，谢谢！！！

iakuf

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use XML::Simple;
   
5. use Data::Dumper;
   
6. 
   
7. my $xml = new XML::Simple (KeyAttr=>[]);
   
8. 
   
9. my $data = $xml->XMLin("ABCDE.xml");
   
10. 
    
11. my $array = $data->{DECLARATION}{DECLGROUP}{'VALUE.OBJECT'};
    
12. 
    
13. foreach my $single ( @{ $array } ){
    
14.     while( my ($k, $v) = each %$single ){
    
15.         if( $k eq 'INSTANCE' ){
    
16.             print Dumper $v;
    
17.         }   
    
18.     }   
    
19. }
    

复制代码

lishaohua119

谢谢扶凯，你的代码可以实现我想取到的数据。只是有些不明白的还要多看看书，才能彻底明白你是怎么实现的，非常感谢！！！

lengchun10

my $count=0;
my $countsub=0;

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

$count++;

}

lishaohua119

XML数据结构发生了一点变化，放在附件中，请帮忙看一下，多谢！！！！！