Parse multiple xml tags with different names to an array

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

Replies are listed 'Best First'.
Re: Parse multiple xml tags with different names to an array by Anonymous Monk on Sep 23, 2013 at 08:40 UTC
See my responses in The State of Web spidering in Perl where I link examples	[reply]
Re^2: Parse multiple xml tags with different names to an array by rbala (Acolyte) on Sep 23, 2013 at 09:07 UTC
Hi, Thank you, but I am unable to figure out my exact requirement from a huge pool of info there in "state of web spidering in perl". Can you specify exactly which matches my req ? Thanks, Bala.	[reply]
Re^3: Parse multiple xml tags with different names to an array by Corion (Patriarch) on Sep 23, 2013 at 09:10 UTC
Personally, I would look at using XML::LibXML and XPath queries to retrieve the child nodes. XML::Twig is also a very similar and capable approach, especially if your XML documents do not fit into available memory.	[reply]
Re^3: Parse multiple xml tags with different names to an array by Anonymous Monk on Sep 23, 2013 at 09:44 UTC
Hi, Thank you, but I am unable to figure out my exact requirement from a huge pool of info there in "state of web spidering in perl". Can you specify exactly which matches my req ? Thanks, Bala. Well, I only link examples in one post, so that one :) and they all match your spec, they're all about extracting "tags" from xml ... As Corion says, LibXML is one of the best choices available, use xpather.pl on your xml file to get a list of xpaths you can use to extract data you want (or url, but its better to download url to file for testing/development/until you figure stuff out ) examples of extracting "tags" are at Re: Stepping up from XML::Simple to XML::LibXML, Re^5: Parsing xml using libXML, Re: Nested XML Question, Re^2: How to make use of dynamic namespace registration to replace the values of elements and attributes using XML::LibXML::XPathContext xml module Re: Perl XML Search, Re: Filter for XML elements, Re: hi i want to retrieve the element and values from xml document, Re: XML::Simple XML / XMLin / XMLout? or something else?, Re: Struggling with XML, Re: XML Parsing, Re^6: Is there any XML reader like this? (XML::Simple beats LibXML hands down in the speed stakes!), Re^5: XML::LibXML problem, https://metacpan.org/module/XML::LibXML::Node, https://metacpan.org/module/XML::LibXML::Element, https://metacpan.org/module/XML::LibXML	[reply]
Re^4: Parse multiple xml tags with different names to an array by rbala (Acolyte) on Sep 23, 2013 at 11:27 UTC
Re^4: Parse multiple xml tags with different names to an array by rbala (Acolyte) on Sep 25, 2013 at 08:40 UTC
Re^5: Parse multiple xml tags with different names to an array by Anonymous Monk on Sep 25, 2013 at 08:44 UTC
Some notes below your chosen depth have not been shown here
Re^2: Parse multiple xml tags with different names to an array by rbala (Acolyte) on Sep 26, 2013 at 07:13 UTC
The problem is solved. The following is the code: `use XML::LibXML; use XML::Simple; my $xml_simple = new XML::Simple( SuppressEmpty => 1, KeyAttr => "INDEX", ForceArray => 1, KeepRoot => 1, ); my @nodeblocks; my $parser = XML::LibXML->new(); my $doc = $parser->parse_string($string); my @nodes = $doc->findnodes("//ROOT_TAG/*"); foreach my $node(@nodes) { my $str = $node->tostring(); my $str_hash = $xml_simple->XMLin($str); push(@nodeblocks, $str_hash); }` [download]	[reply] [d/l]
Re^3: Parse multiple xml tags with different names to an array by Anonymous Monk on Sep 26, 2013 at 13:19 UTC
So you're after this? `my @nodeblocks = ( { CHILD1 => ["ABC"] }, { CHILD2 => ["KJLK"] }, { CHILD3 => ["NLLKJ"] }, );` [download] #!/usr/bin/perl -- use strict; use warnings; use XML::LibXML 1.70; ## for load_html/load_xml/location use Data::Dump; my $xml=q{<ROOT_TAG> <CHILD1>ABC</CHILD1> <CHILD2>KJLK</CHILD2> <CHILD3>NLLKJ</CHILD3> </ROOT_TAG>}; my $dom = XML::LibXML->new( qw/ recover 2 / )->load_xml( string => $xml ); my @nodeboks; for my $kid ( $dom->findnodes(q{ //ROOT_TAG/* } ) ){ print $kid->nodePath, "\n"; push @nodeboks, { $kid->tagName => [ $kid->textContent ], }; } dd\@nodeboks; __END__ /ROOT_TAG/CHILD1 /ROOT_TAG/CHILD2 /ROOT_TAG/CHILD3 [ { CHILD1 => ["ABC"] }, { CHILD2 => ["KJLK"] }, { CHILD3 => ["NLLKJ"] }, ] [download] If your real problem is this short, this approach isn't too bad, but if its more comples, its not a substitute for what XML::Simple does for you, but XML::Rules is, its better than XML::Simple	[reply] [d/l] [select]
Re^2: Parse multiple xml tags with different names to an array by rbala (Acolyte) on Sep 25, 2013 at 11:18 UTC
Hi , I checked ur exapmles, but could not figure out a way . My requirement is simple. Just convert the XML::LibXML::Element to a plain string value. Can you help me out specifically ? Thanks, Bala.	[reply]