XML::Twig help

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

<?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)
[download]

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?

Comment on XML::Twig help Download Code

Replies are listed 'Best First'.
Re: XML::Twig help by Anonymous Monk on Jul 03, 2012 at 12:47 UTC
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	[reply]
Re^2: XML::Twig help by yesitsjess (Initiate) on Jul 03, 2012 at 12:55 UTC
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"; }` [download] 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.	[reply] [d/l]
Re^3: XML::Twig help by mirod (Canon) on Jul 03, 2012 at 13:43 UTC
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`.	[reply] [d/l] [select]
Re^4: XML::Twig help by yesitsjess (Initiate) on Jul 05, 2012 at 10:36 UTC
Re^3: XML::Twig help by Anonymous Monk on Jul 03, 2012 at 13:01 UTC
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 )	[reply]
Re: XML::Twig help by Ransom (Beadle) on Jul 03, 2012 at 13:02 UTC
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.	[reply] [d/l]