What may be the problem in my code?

[gube]

Hi monks,

I am taking input $text and parse using XML::Simple and XML::Parser but, in XML::Simple the element 'a' is not showned in parsed output. It, seems in XML::Parser. What may be the changes in my code in XML::Simple. Please help me.

Thanks in Advance

use XML::Simple;
use Data::Dumper;
$text = qq{<a b="1" c="1"><b c="1"/></a>};
my $res = XML::Simple->new();
$result = $res->XMLin( $text );
print Dumper($result);
o/p: $VAR1 = {
          'c' => '1',
          'b' => [
                 '1',
                 {
                   'c' => '1'
                 }
               ]
        };
-------------
use XML::Parser;
$parser = new XML::Parser( Style => 'Tree' );
my $tree = $parser->parse( $text );
use Data::Dumper;
print Dumper( $tree );
o/p:
$VAR1 = [
          'a',
          [
            {
              'c' => '1',
              'b' => '1'
            },
            'b',
            [
              {
                'c' => '1'
              }
            ]
          ]
        ];

[monkey_boy]

it is taking "a" as your "root" node, try adding a fake "root" tag, e.g.

<root><a b="1" c="1"><b c="1"/></a></root>


UPDATE:
or add this option:

my $res = XML::Simple->new(KeepRoot => 1);

[gube]

Thanks ;)

[Happy-the-monk]

Your A-tag is the outer structure that XML::Simple uses. If you add any other element to it, as an axample put <xml> ... </xml> around your structure, you will see the A-tag.

Cheers, Sören

[ptum]

Looking at the documentation for XML::Simple it looks to me as though this is a feature, not a bug. It seems that XML::Simple strips off the name-value pairs and returns them without the name of the tag. Taken from the EXAMPLES section of the POD for XML::Simple:

When XMLin() reads the following very simple piece of XML:
    <opt username="testuser" password="frodo"></opt>
it returns the following data structure:
    {
      'username' => 'testuser',
      'password' => 'frodo'
    }

It seems that XML::Simple expects you to use a named variable to hold the contents of the data structure, like this:

use XML::Simple;
my $res = XML::Simple->new()
my $a_tag = $res->XMLin($text);