Re^2: Parse multiple xml tags with different names to an array

[rbala]

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);
}

[Anonymous Monk]

So you're after this?

my @nodeblocks = (
  { CHILD1 => ["ABC"] },
  { CHILD2 => ["KJLK"] },
  { CHILD3 => ["NLLKJ"] },
);

#!/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"] },
]

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