Parsing xml using libXML

[shaq]

I need to pars an xmlfile,using perl. So basically I want to convert this xml file to some data structure like hashes and arrays.by this code now I can have access to the all nodes except for graphics node and its elements.

XML file:

   
 <pathway name="path:ko00010" org="ko" number="00010"
    title="Glycolysis / Gluconeogenesis"
    image="http://www.kegg.jp/kegg/pathway/ko/ko00010.png"
    link="http://www.kegg.jp/kegg-bin/show_pathway?ko00010">
    <entry id="13" name="ko:K01623 ko:K01624 ko:K01622 ko:K16306"
        link="http://www.kegg.jp/dbgetbin/www_bgetK01623+K16306">
        <graphics name="K01623..." fgcolor="#000000" bgcolor="#BFBFFF"
          type="rectangle" x="483" y="404" width="46" height="17"/>
    </entry>
  </pathway>

here is the perl code :

                                                                      
+                                                                     
+                                                                     
+                                                                     
+                                                          
    use XML::LibXML;
    use strict;
    use warnings;
    my $parser = new XML::LibXML;
    my $xmlp= $parser -> parse_file("ko00010.xml");
    my $rootel = $xmlp -> getDocumentElement();
    my $elname = $rootel -> getName();
    my @rootelements=$rootel -> getAttributes();
    foreach my $rootatt(@rootelements){
        my  $name = $rootatt -> getName();
        my $value = $rootatt -> getValue();
        print " ${name}[$value]\n ";
    }
    
    my @kids = $rootel -> childNodes();
    foreach my $child(@kids) {
        my $elname = $child -> getName();
        my @atts = $child -> getAttributes();
        foreach my $at (@atts) {
            my $name = $at -> getName();
            my $value = $at -> getValue();
            print " ${name}[$value]\n ";
    
        }
    }

[runrig]

Something like XML::Rules would build your data structure fairly easily the way you want it, but since I don't know what you want, I don't know what to write. You can start with XML::Simple and decide if that's good enough, or what you don't like, and then switch to XML::Rules.

[shaq]

I need to store this xml data into data structures for further use. DS like hash and arrays, So far I have access to all elements except for Graphics nodes and its children

[runrig]

You can do that with XML::Simple or XML::Rules.

Also, please mention it when you cross-post questions to different forums.

[hippo]

If you really want to roll your own like this, it would seem sensible to use recursion. You are not doing so and are in fact only going to an explicit depth in the tree at any point, hence missing the "graphics" element (and its children if there were any).

[shaq]

well I don't know how to proceed

[hippo]

And why might that be? Here are some possibilities:

1. You don't know what recursion is.
2. You do know what recursion is, but have no idea how to do it in perl.
3. You know what it is and how to do it, but cannot see how it applies to your problem.
4. You've decided it would be better not to roll your own but don't know how to look for appropriate existing code.
5. You've found some existing code but don't know how to implement it in your script.

If you want to pick a number that would give us a bit more idea of why you are stuck and hence how you can be assisted.

[zork42]

The OP includes this text:

here is the perl code :

use XML::LibXML;

But unfortunately line 1 in the OP is actually ~335 space characters.

This is messing up the page formatting both within this topic, and on the SoPW page on which this topic appears.

Please could someone with god-like powers, or shaq, replace the long line 1 with a short line 1 (so the line numbering remains the same)?

Thank you!

[Anonymous Monk]

This is messing up the page formatting both within this topic, and on the SoPW page on which this topic appears.

Sorry zork42 but no it doesn't. It seems you have changed your User Settings (Help for User Settings) to turn off code-wrapping and soft-hyphens, so the code isn't wrapped for you.

Its wrapped for me :) you can see yourself (probably) if you try perlmonks.NET or perlmonks.COM or perlmonks.ORG (whichever domain you aren't using, or simply log out) and you'll

See also Display Settings, Help for Display Settings , New code wrap options, Why is the PerlMonks page too wide?

Please could someone with god-like powers, or shaq, replace the long line 1 with a short line 1 (so the line numbering remains the same)?

For future reference, PerlMonks FAQ says the general approach to getting a node edited due to formatting,
to /msg nodeowner hey can you fix/edit... [id://]
or to /msg janitors hey can you fix/edit... [id://]
or to consider the node,
but only if its appropriate :) What do Janitors do?, How do I use the power of consideration responsibly?

Hi:)

[zork42]

Hey Anonymous Monk thanks for that very helpful post :)

I've now ticked "Auto Code Wrapping" and everything looks fine now :)

Should I still /msg a janitor to get this fixed for other people?
(shaq is maybe too new to fix it)

[Anonymous Monk]

Whats the question, how to build some perl data structure? What kind are you trying to build?

[shaq]

I need to store this xml data into data structures for further use. DS like hash and arrays, So far I have access to all elements except for Graphics nodes and its children

[Anonymous Monk]

I need to store this xml data into data structures for further use. DS like hash and arrays, So far I have access to all elements except for Graphics nodes and its children

So what data structure? You've posted sample data, now post the corresponding data structure