XML ::単純なXMLノードが 'name'ノードの値に変換されました

Question

私は、XML :: Simpleを使ってPerlを使用して、ハッシュを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 :: Simpleを使って行うことができますか、別のモジュールを使用する必要がありますか？

Answer 1

あなたは、XML :: Simpleは、それが

#!/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)]);