Re: Re: setting hash keys by array

Thanks for your answer !!, but can you give me a little explenation, what exactly it does and the syntax (especially lines 3)

1) use Data::Dumper;

2) my @keys = qw( this that those );
3) my $node = \\my %hash;

4) $node = \$$node->{$_} for @keys;

5) $$node = "value";

6) print Dumper \%hash;
[download]

I prefer understanding this before using it.
Thanks

Hotshot

Comment on Re: Re: setting hash keys by array Download Code

Replies are listed 'Best First'.
Re: Re: Re: setting hash keys by array by demerphq (Chancellor) on Sep 10, 2002 at 14:27 UTC
Yeah this is a nasty cryptic and totally groovy way to do things. I think I understand how it works, let see if I am right... `my $node=\\my %hash;` [download] This sets $node to be a reference to a reference to %hash. `$node = \$$node->{$_} for @keys;` [download] So this says to make node become equal to a reference to the slot $_ in the current hashref that $node references (foreach element in the list). It might be clearer to write it like so: `$node = \(${$node}->{$_})` [download] Basically the idea of this is to take advantage of perls autovivification. The double reference is a nice way to ensure that we are always pointed at the slot that holds the previous key. If that value is undef, then it will be autovivified when it is used as a reference. `$$node = "value";` [download] Stick the final value in. Cool eh? juerd++ and japhy++ --- demerphq my friends call me, usually because I'm late....	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Re: Re: setting hash keys by array
by demerphq (Chancellor) on Sep 10, 2002 at 14:27 UTC

my $node=\\my %hash;
[download]

$node = \$$node->{$_} for @keys;
[download]

$node = \(${$node}->{$_})
[download]

$$node = "value";
[download]

Cool eh? juerd++ and japhy++

--- demerphq
my friends call me, usually because I'm late....

[reply]
[d/l]
[select]