perl, how to get to xml child nodes

<house>
  <rented>
    <name>james</name>
    <name>bob</bob>
  </rented>
  <owned>
    <name>dave</name>
    <name>charles</name>
  </owned>
</house>

@ownedHouses = $xml_root->getElementsByTagName("name");  #will retrieve names from both <rented> and <owned> houses.  How do I get just the owned house ones.
rgbcofAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
clockwatcherConnect With a Mentor Commented:
Based on the getElementsByTagName call, I'm assuming you're using XML::DOM to parse your xml.  If that's the case, here's an example of returning the text within the name elements which are within owned elements.
use XML::DOM;
my $parser = new XML::DOM::Parser;

my $doc = $parser->parse(qq~
<house>
  <rented>
    <name>james</name>
    <name>bob</name>
  </rented>
  <owned>
    <name>dave</name>
    <name>charles</name>
  </owned>
</house>
~);

for my $home ($doc->getElementsByTagName("owned")) {
	for my $name ($home->getElementsByTagName("name")) {
		for my $child ($name->getChildNodes) {
			printf( "%s\n", $child->getData) if $child->getNodeType eq TEXT_NODE;
		
		} 
	}
}

Open in new window

0
 
rgbcofAuthor Commented:
Ah, getChildNodes was what I was looking for.  That's great.  Thanks.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.