Re: Dynamic addressing in a hash

basically loop.

little demo in perl -de0

  DB<23> $js = {}

  DB<24> $js->{hoig}{boig}{loig}{shmoig} = 666

  DB<25> $walk = $js

  DB<26> $walk = $walk->{$_} for split /-/,"hoig-boig-loig-shmoig"

  DB<27> say $walk
666
[download]

but be careful about unwanted autvivification if keys are unknown.

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

Comment on Re: Dynamic addressing in a hash Select or Download Code

Replies are listed 'Best First'.
Re^2: Dynamic addressing in a hash by LanX (Saint) on Sep 01, 2022 at 02:08 UTC
In case you also want to be able to set dynamically `DB<44> sub js :lvalue { my $last = pop; my $walk = $js; $walk = $wal +k->{$_} for @_; $walk->{$last} } DB<45> say js(split /-/,"hoig-boig-loig-shmoig") 666 DB<46> say js(split /-/,"hoig-boig-loig-shmoig") = 42 42 DB<47> say js(split /-/,"hoig-boig-loig-shmoig") 42 DB<48> x $js 0 HASH(0x337b528) 'hoig' => HASH(0x337b768) 'boig' => HASH(0x337b498) 'loig' => HASH(0x3379e08) 'shmoig' => 42 DB<49>` [download] see also Data::Diver for more elaborated handling of edge cases Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Dynamic addressing in a hash
by LanX (Saint) on Sep 01, 2022 at 02:08 UTC

  DB<44> sub js :lvalue { my $last = pop; my $walk = $js; $walk = $wal
+k->{$_} for @_; $walk->{$last} }

  DB<45> say js(split /-/,"hoig-boig-loig-shmoig")
666

  DB<46> say js(split /-/,"hoig-boig-loig-shmoig") = 42
42

  DB<47> say js(split /-/,"hoig-boig-loig-shmoig")
42

  DB<48> x $js
0  HASH(0x337b528)
   'hoig' => HASH(0x337b768)
      'boig' => HASH(0x337b498)
         'loig' => HASH(0x3379e08)
            'shmoig' => 42
  DB<49>
[download]

see also Data::Diver for more elaborated handling of edge cases

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

[reply]
[d/l]