Re^2: data extraction XML::Simple

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]

Comment on Re^2: data extraction XML::Simple Download Code

Replies are listed 'Best First'.
Re^3: data extraction XML::Simple by ikegami (Patriarch) on Mar 10, 2010 at 23:12 UTC
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]
Re^4: data extraction XML::Simple by jonnyfolk (Vicar) on Mar 10, 2010 at 23:25 UTC
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]