Perl - how to create dynamic multi level hash using array of elements as keys [duplicate]

Question

I like to create a multi level hash by using an array that stores the elements to form the multi level keys. Example:

@elements = ('level1','level2','level3');

And want something like this:

$hashdata{level1}{level2}{level3} = 'store anything i want';

is there something that can easily do this? package?

thanks

See Data::Diver

Håkon Hægland
– Håkon Hægland

2021-09-16 15:00:08 +00:00
Commented Sep 16, 2021 at 15:00 — Håkon Hægland
– Håkon Hægland, Commented Sep 16, 2021 at 15:00
Another related tool Deep::Hash::Utils.

zdim
– zdim

2021-09-16 16:59:47 +00:00
Commented Sep 16, 2021 at 16:59 — zdim
– zdim, Commented Sep 16, 2021 at 16:59

zdim · Accepted Answer · 2021-09-16 16:42:23Z

3

A most well-known tool is probably Data::Diver

use warnings;
use strict;    
use Data::Dump qw(dd);

use Data::Diver qw(DiveVal);

my @elems = qw(lev1 lev2 lev3);

my %hash;

DiveVal(\%hash, @elems) = "value";

dd \%hash;

The DiveVal is an lvalue subroutine (can be assigned to), and which autovivifies when it can.

answered Sep 16, 2021 at 16:42

zdim

67.2k5 gold badges59 silver badges87 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Perl - how to create dynamic multi level hash using array of elements as keys [duplicate]

1 Answer 1

Comments

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Linked

Related