XML::Twig help

[yesitsjess]

<?xml version="1.0" encoding="UTF-8"?>
<somerubbish>
  <data1 type="INTEREST1" somerubbish>
    <groups>
      <group>INTEREST2</group>
    </groups>
    <targets>
      <target position="1" partner="INTEREST3">
        <known-action>INTEREST4</known-action>
      </target>
    </targets>
  </data1>  
  <data2 ....(etc)

How can I capture INTEREST1,2,3&4? I have been trying for a while now, read several help pages, and starting to feel it would be far easier just to use regexes. Can anyone help please?

[Anonymous Monk]

How can I capture INTEREST1,2,3&4? I have been trying for a while now, read several help pages, and starting to feel it would be far easier just to use regexes. Can anyone help please?

Show what you tried, and explain how it failed

[yesitsjess]

Okay, it didn't even slightly work though. Also I changed the data to make it easier for you guys to help.

foreach my $info ($root->children('data')){
    my $INTEREST2 = $drug->first_child_text('groups/group');
    print "$INTEREST2";
    print "\n";
}

I have no idea how to capture INTEREST1 as it is within the tag. What I've written here didn't work as groups/group is not valid.

[mirod]

There are several ways to get the data. first_child only goes down 1 step in the tree. To get the text, you would need $drug->first_child('groups')->field( 'group'), or $drug->next_elt( 'groups')->text or $drug->findvalue( 'groups/group'). INTEREST1 is an attribute, so you would get it with $drug->att( 'type').

There is probably a problem though either with your simplified data or with the code. You have te tags in your example as data1 and data2. If this is really the case, then you won't access them with $root->children('data'), since the tags are NOT data. So either the tags are data, or you have to get them using $root->children.

[Anonymous Monk]

Well, you should be using handlers or roots, not the DOM-ish interface

See Re^3: parse xml and store data in array of hashesh, Parsing HTML / Re^4: Parsing HTML, A regex question , NASA's Astronomy Picture of the Day / Re: NASA's Astronomy Picture of the Day, Re: Search and replace query ( twig and xsh (XML::LibXML/xpath )

[Ransom]

You can use the cpan module XML::Simple to read in the XML and create a hash. It looks similar to:

my $fields = XMLin('fields.xml') or die "Cannot read fields.xml\n";

Then you can use Data::Dumper or something similar to print the hash. Then it's as easy as following the key/value paris until you are at the data you want.