Solved

Perl XML get children

Posted on 2011-09-27
3
511 Views
Last Modified: 2012-05-12
I have the following code, but I want to follow all the children (of the children), etc.. to printer a "flat"  complete list of elements.
$struct = $parser -> parse_file("$pid.dofiles.xml");
$rootel = $struct -> getDocumentElement();
                       
$elname = $rootel -> getName();
print "Root element is a $elname and it contains ...\n";
                       
@kids = $rootel -> childNodes();
foreach $child(@kids) {
$elname = $child -> getName();
@atts = $child -> getAttributes();
print "$elname (";     
foreach $at (@atts) {  
$na = $at -> getName();                                                                                                                                                                              
$va = $at -> getValue();
print " ${na}[$va] ";  
}                      
print ")\n";           
}

Open in new window

0
Comment
Question by:freshgrill
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 9

Accepted Solution

by:
parparov earned 500 total points
ID: 36712271
What perl module are you using? XML::Simple? XML::Parser?
0
 

Author Comment

by:freshgrill
ID: 36712298
use XML::LibXML;
use XML::XSLT qw(serve);
use XML::DOM;
0
 
LVL 9

Expert Comment

by:parparov
ID: 36712367
OK.

Now, it would greatly help if you provided a sample XML that you are parsing and the output you would like to see from it.



0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…

734 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question