Re: How do I get a list in a perl hash generated from an XML?

Here's how to get the requested structure using XML::LibXML.

#! /usr/bin/perl
use warnings;
use strict;

use XML::LibXML;

my $dom = 'XML::LibXML'->load_xml(location => shift);
my %struct;
for my $ref ($dom->findnodes('/root/ref')) {
    for my $child ($ref->findnodes('*')) {
        push @{ $struct{ $ref->{name} }{ $child->nodeName } },
             { map { $_->nodeName => $_->value } $child->findnodes('@*
+') };
    }
}

use Data::Dumper; print Dumper \%struct;
[download]

But converting from XML::Simple to XML::LibXML usually changes the code much more. You can extract only the information you need from the XML, so you don't need to build the whole structure at all.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re: How do I get a list in a perl hash generated from an XML? Select or Download Code

Replies are listed 'Best First'.
Re^2: How do I get a list in a perl hash generated from an XML? by PV66 (Novice) on Apr 19, 2021 at 12:19 UTC
This does make sense @choroba. Out of curiosity, what if my XML had more tags, for example if it looked like: `<root> <config> <build host="https://cpzdomain.local"/> </config> <ref name="abc_sia_%version1.ref%"> <func envname = "test01" objectdir = "/home/pv66" base="default_771"/> </ref> </root>` [download] And I wanted to just make a hash as in my question for only the elements in the <ref> tag, is there anyway to do it with the XML::Simple module?	[reply] [d/l]
Re^3: How do I get a list in a perl hash generated from an XML? by choroba (Cardinal) on Apr 20, 2021 at 11:46 UTC
I can't help you with XML::Simple (and I don't want to). If you need advice to migrate the whole logic to XML::LibXML , though, I can be your consultant. `map{substr$_->[0],$_->[1]\|\|0,1}[\\|\|{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^ARGV,3]`	[reply] [d/l]
A reply falls below the community's threshold of quality. You may see it by logging in.


Problems? Is your data what you think it is?
	PerlMonks