http://qs321.pair.com?node_id=1180142

ravi179 has asked for the wisdom of the Perl Monks concerning the following question:

How can i convert XML to an array of array.

<?xml version="1.0" encoding="UTF-8"?>
<books>
  <!-- Programming Perl 3ed -->
  <book id="1">
    <title>Programming Perl</title>
    <edition>3</edition>
    <authors>
      <author>
        <firstname>Larry</firstname>
        <lastname>Wall</lastname>
      </author>
      
    </authors>
    <isbn>0-596-00027-8</isbn>
  </book>
  <!-- Perl & LWP -->
  <book id="2">
    <title>Perl &amp; </title>
    <edition >1</edition>
    <authors>
      <author>
        <firstname>Sean</firstname>
        <lastname>Burke</lastname>
      </author>
    </authors>
    <isbn>0-596-00178-9</isbn>
  </book>
  <book id="3">
    <!-- Anonymous Perl -->
    <title>Anonymous Perl</title>
    <edition>1</edition>
    <authors />
    <isbn>0-555-00178-0</isbn>
  </book>
</books>

[download]

I can use only XML::Simple,XML::Parser only,while using XML::Simple I was unable to print the data

my $xl=XMLin('C:/perlpractice/dec8.xml',ForceArray=>1);
for$key(keys %$xl)
{
for $s(keys %{$xl{$key}})
{
print $s;
}
}

[download]

Can anyone please help me how to access hashes of hashes with array reference

.

Replies are listed 'Best First'.
Re: Converting XML to array of array.
by choroba (Cardinal) on Jan 23, 2017 at 10:51 UTC
    Use Data::Dumper to visualise the structure you want to iterate over. You need to supply the root element name at the top: book . The following should give you a clue:

    for my $id (keys %{ $xml->{book} }) {
    for my $s (keys %{ $xml->{book}{$id} }) {
        print "$s: @{ $xml->{book}{$id}{$s} }\n";
    }
}

    [download]

    Also, don't use XML::Simple.

    Here's how to process the XML in XML::XSH2: 

    open file.xml ;
for //book
    echo (title)
         edition (edition)
         by (authors/author/firstname | authors/author/lastname)
         '(' isbn (isbn) ')' ;

    [download]

    ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

    [download]
[reply]
[d/l]
[select]

      Homework exercise probably specifies using XML::Simple or XML::Parser. It may prove useful to know about better alternatives, just not at the moment.

      But God demonstrates His own love toward us, in that while we were yet sinners, Christ died for us. Romans 5:8 (NASB)
[reply]
Re: Converting XML to array of array.
by Corion (Patriarch) on Jan 23, 2017 at 09:39 UTC
[reply]
Re: Converting XML to array of array.
by Laurent_R (Canon) on Jan 23, 2017 at 22:47 UTC
    If you looked at the documentation onXML::Simple, you probably saw that this module is deprecated:
    You really don't want to use this module in new code.
    And:
    The use of this module in new code is discouraged. Other modules are available which provide more straightforward and consistent interfaces. In particular, XML::LibXML is highly recommended and XML::Twig is an excellent alternative.
    And:
    The major problems with this module are the large number of options (some of which have unfortunate defaults) and the arbitrary ways in which these options interact - often producing unexpected results.
    If you search this forum, you'll find a number of posts explaining why you should not use this module (at least not for new code).
[reply]

Back to Seekers of Perl Wisdom