http://www.perlmonks.org?node_id=827907


in reply to data extraction XML::Simple

Use 
use Data::Dumper;
print Dumper $data;

[download]
Then notice XML::Simple removes the root node by default. You simply need 
print $data->{Tenders_and_toys};

[download]

Replies are listed 'Best First'.
Re^2: data extraction XML::Simple
by jonnyfolk (Vicar) on Mar 10, 2010 at 23:07 UTC
    Hi hadn't realized that the root node was removed, and you example works, thank you very much. Making string more complex, and trying to take you advice into account I am still drawing a blank!! 
    $newxml = qq~
        <record>
          
        <namepairs>
          <name>My Name
</name>
          <img>My image</img>
          <brochure>My Brochure</brochure>
         </namepairs>
                  
        </record>~;

my $xml = new XML::Simple(ForceArray => 1, KeyAttr => [], KeepRoot => 
+1, SuppressEmpty => '');

my $data = $xml->XMLin(\$newxml);

#print $data->{'name'};
print $data->{'namepairs'}->{'name'};


#print Dumper($data);
exit;

    [download]
[reply]
[d/l]
      The dump shows 
      VAR1 = {
          'record' => [
                      {
                        'namepairs' => [
                                       {
                                         'brochure' => [
                                                       'My Brochure'
                                                     ],
                                         'name' => [
                                                   'My Name
'
                                                 ],
                                         'img' => [
                                                  'My image'
                                                ]
                                       }
                                     ]
                      }
                    ]
        };

      [download]

      You don't account for the top level hash or any of the arrays. 

      print $data->{record}[0]{namepairs}[0]{name}[0];

      [download]
[reply]
[d/l]
[select]
        Ok, I hadn't understood the difference between the two structures I had posted. It's much clearer to me now. Thanks very much for you help and time.
[reply]

In Section Seekers of Perl Wisdom