XML ::简单的XML节点变成了'name'节点的值

Question

我正在使用Perl :: XML :: Simple将哈希转换为XML文档。

我的脚本如下所示：

#!/usr/bin/perl 
use strict; 
use warnings; 
use XML::Simple; 
use Data::Dumper; 

my $xml_simple = XML::Simple->new(NoAttr => 1, 
        KeepRoot => 1); 

my $hash = { output => { 'products' => [ { 'product' => { 'titel' => 'ABN AMRO Bank hypotheken', 
                  'owner' => 'ABN AMRO Hypotheken Groep', 
                  'code' => 'ABN AMRO BANK R' } }, 
             { 'product' => { 'titel' => 'Aegon', 
                  'owner' => 'AEGON Hypotheken', 
                  'code' => 'AEGON pilot' } } ], 
         'date' => '2012-02-20'} }; 


my $xml = $xml_simple->XMLout($hash); 

print Dumper($xml); 

我得到的输出是：

<output> 
    <date>2012-02-20</date> 
    <products> 
     <name>product</name> 
     <code>ABN AMRO BANK R</code> 
     <owner>ABN AMRO Hypotheken Groep</owner> 
     <titel>ABN AMRO Bank hypotheken</titel> 
    </products> 
    <products> 
     <name>product</name> 
     <code>AEGON pilot</code> 
     <owner>AEGON Hypotheken</owner> 
     <titel>Aegon</titel> 
    </products> 
</output> 

，但我所寻找的是这个（见 '产品' 节点）：

<output> 
    <date>2012-02-20</date> 
    <products> 
    <product> 
     <code>ABN AMRO BANK R</code> 
     <owner>ABN AMRO Hypotheken Groep</owner> 
     <titel>ABN AMRO Bank hypotheken</titel> 
    </product> 
    <product> 
     <code>AEGON pilot</code> 
     <owner>AEGON Hypotheken</owner> 
     <titel>Aegon</titel> 
    </product> 
    </products> 
</output> 

这是可行的与XML ::简单的或我应该使用不同的模块？

Answer 1

你可以让XML ::简单的告诉你什么样的数据结构，它希望

#!/usr/bin/perl 
use strict; 
use warnings; 
use XML::Simple; 
use Data::Dumper; 
my $desired_xml = << 'END'; 
<myxml> 
<output> 
    <date>2012-02-20</date> 
    <products> 
    <product> 
     <code>ABN AMRO BANK R</code> 
     <owner>ABN AMRO Hypotheken Groep</owner> 
     <titel>ABN AMRO Bank hypotheken</titel> 
    </product> 
    <product> 
     <code>AEGON pilot</code> 
     <owner>AEGON Hypotheken</owner> 
     <titel>Aegon</titel> 
    </product> 
    </products> 
</output> 
</myxml> 
END 
#print $desired_xml; 
my $xml_simple = XML::Simple->new(
    NoAttr => 1, 
    KeepRoot => 1 
); 
#my $hash = XMLin($desired_xml, forcearray => 1); 
my $hash = { 
    output => [ 
     { 
      date  => ["2012-02-20"], 
      products => [ 
       { 
        product => [ 
         { 
          code => ["ABN AMRO BANK R"], 
          owner => ["ABN AMRO Hypotheken Groep"], 
          titel => ["ABN AMRO Bank hypotheken"], 
         }, 
         { 
          code => ["AEGON pilot"], 
          owner => ["AEGON Hypotheken"], 
          titel => ["Aegon"], 
         }, 
        ], 
       }, 
      ], 
     }, 
    ], 
    }; 
#print Data::Dumper->Dump([$hash], [qw(hash)]); 
my $xml = $xml_simple->XMLout($hash); 
print Data::Dumper->Dump([$xml], [qw(xml)]);