#
# This script generates the following output...
#
# - x - x - x - x - x - x - x - x -
# $tree $VAR1 = \{
#             'banana' => {
#                         'value' => '1231210',
#                         'name' => 'date'
#                       },
#             'apple' => {
#                        'time' => {
#                                  'value' => '235959'
#                                },
#                        'date' => {
#                                  'value' => '1231210'
#                                }
#                      }
#           };
# 
# 
# - x - x - x - x - x - x - x - x -
#
# How do I get the banana to to look like the apple?
#
# e.g.
#
#             'banana' => {
#                        'date' => {
#                                  'value' => '1231210'
#                                }
#                       },
#           };
#

use strict;
use XML::Simple;
use Data::Dumper;

my $text=<<EOF;
<main>
  <apple name="date" value="1231210"/>
  <apple name="time" value="235959"/>
  <banana name="date" value="1231210"/>
</main>
EOF
my $p1 = new XML::Simple();
my $tree;
my $config = eval {
   $tree= $p1->XMLin($text,
                 #   ,VarAttr => 'name'
                 #   ,VarAttr => 'name', ContentKey => '-content'
                 #   ,KeyAttr => "name"
                 #   ,KeyAttr => { userdefined=>"name"}
                 #   ,KeyAttr => { userdefined=>"+name"}
                 #   ,KeyAttr => { userdefined=>"-name"}
                    ,KeyAttr => 'name'
                 #   ,ValueAttr => {userdefined=>"name"}
                    )
};
die("$@\n Ending") if ($@);

print "\$tree " . Dumper(\$tree) . "\n";

exit 0;

[download]

In reply to hash from xml::simple by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.