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

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]

Comment on Re^2: Parse multiple xml tags with different names to an array Download Code

Replies are listed 'Best First'.
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]

Replies are listed 'Best First'.

Re^3: Parse multiple xml tags with different names to an array
by Anonymous Monk on Sep 26, 2013 at 13:19 UTC

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]