解析XML文档

Question

<?xml version="1.0" encoding="UTF-8"?> 
<Document> 
    <DataElement> 
     <Serial_Start>1000</Serial_Start> 
     <Serial_End>2000</Serial_End> 
     <Item value="257896"> 
      <ComItemation> 
       <Price>00</Price> 
       <Sku>20</Sku> 
       <Qcode>27</Qcode> 
      </ComItemation> 
      <ComItemation> 
       <Price>80</Price> 
       <Sku>20</Sku> 
       <Qcode>20</Qcode> 
      </ComItemation> 
     </Item> 
     <Item value="523698"> 
      <ComItemation> 
       <Price>00</Price> 
       <Sku>20</Sku> 
       <Qcode>27</Qcode> 
      </ComItemation> 
      <ComItemation> 
       <Price>80</Price> 
       <Sku>20</Sku> 
       <Qcode>20</Qcode> 
      </ComItemation> 
     </Item> 
     <Item value="856987"> 
      <ComItemation> 
       <Price>00</Price> 
       <Sku>20</Sku> 
       <Qcode>27</Qcode> 
      </ComItemation> 
     </Item> 
    </DataElement> 
    <DataElement> 
     <Serial_Start></Serial_Start> 
     <Serial_End></Serial_End> 
     <Item value="123456"> 
      <ComItemation> 
       <Price>00</Price> 
       <Sku>20</Sku> 
       <Qcode>27</Qcode> 
      </ComItemation> 
      <ComItemation> 
       <Price>80</Price> 
       <Sku>20</Sku> 
       <Qcode>20</Qcode> 
      </ComItemation> 
     </Item> 
     <Item value="123456"> 
      <ComItemation> 
       <Price>00</Price> 
       <Sku>20</Sku> 
       <Qcode>27</Qcode> 
      </ComItemation> 
      <ComItemation> 
       <Price>80</Price> 
       <Sku>20</Sku> 
       <Qcode>20</Qcode> 
      </ComItemation> 
     </Item> 
     <Item value="123456"> 
      <ComItemation> 
       <Price>00</Price> 
       <Sku>20</Sku> 
       <Qcode>27</Qcode> 
      </ComItemation> 
      <ComItemation> 
       <Price>80</Price> 
       <Sku>20</Sku> 
       <Qcode>20</Qcode> 
      </ComItemation> 
     </Item> 
    </DataElement> 
</Document> 

我是PERL的新蜜蜂，试图解析上述XML文档。 I 要求以下述格式输出。

Serial Start : 1000 
Serial End : 2000 
Item : 257896 
Price : 00 
Sku : 20 
Qcode : 27 
Item : 257896 
Price : 80 
Sku : 20 
Qcode : 20 

...以此类推每个子节点。

样品至今代码：

#!/usr/bin/env perl 
use strict; 
use warnings; 

use XML::Simple; 
use Data::Dumper; 
my $xml = new XML::Simple; 
my $data = $xml->XMLin("/home/rocky/PERL/doc.xml"); 
print Dumper($data); 

foreach my $imgrec (@{ $data->{DataElement} }) { 
    my $Serial_Start = $imgrec->{Serial_Start}; 
    my $Serial_End = $imgrec->{Serial_End}; 
    foreach my $imgrec1 (@{ $data->{DataElement}->{Item} }) { 
     ## Not sure of this code 
     ## Trying on this part. 
    } 
} 

Answer 1

好了，这里是你的问题：

use XML::Simple; 

不 - 它只会让你的生活困难。

下面是使用XML::Twig 10首发 - 这不是完全清楚自己在做什么让你后输出，所以：

#!/usr/bin/env perl 
use strict; 
use warnings; 

use XML::Twig; 

my $twig = XML::Twig-> new -> parsefile('/home/rocky/PERL/doc.xml') 
foreach my $data_element ($twig->findnodes('//DataElement')) { 
    print "Start:", $data_element->first_child_text('Serial_Start'), "\n"; 
    print "End:", $data_element->first_child_text('Serial_End'), "\n"; 
    foreach my $item ($data_element -> children('Item')){ 
     print "Item: ", $item -> att('value'),"\n"; 
     foreach my $tag (qw (Price Sku Qcode)) { 
      print "$tag: ", $item -> findnodes (".//$tag", 0) -> text,"\n"; 
     } 
    } 
} 

注意 - 这个发现的该第一实例物品下方的特定标签 - 不是全部。