in reply to 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]

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]
      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.

In Section Seekers of Perl Wisdom