Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

Re: Missing something with regards to references

by dpuu (Chaplain)
on Nov 01, 2004 at 22:42 UTC ( #404443=note: print w/replies, xml ) Need Help??

in reply to Missing something with regards to references

Sometimes with these "what am I missing" type of questions, the best approach is to explain how I'd do it, and then see if that answer somehow hits the one thing you need to understand.

Lets start with the function usage model: You suggest

put_element( $DATA{3}, 'h', 'i', 'worked' );
For clarity, lets do the whole hash. You can create a reference to the top level (root) hash using the backslash operator:
put_element( \%DATA, 3, 'h', 'i', 'worked' );
All those quotes get tiresome after a while, so lets get rid of them:
put_element( \%DATA, qw(3 h i worked) );
Perl flattens arg-lists, so that is identical to the previous version.

So now the implementation (I'll omit the error-checks):

sub put_element { my ($hashref, @path) = @_; # The leaf node and its value are special my $value = pop @path; my $leaf = pop @path; # walk the tree, create non-existing nodes for my $node (@path) { $hashref = $hashref->{$node} ||= {}; } # Finally, set the value at the leaf $hashref->{$leaf} = $value; }
Hopefully the comments are sufficient to explain my thinking.

Opinions my own; statements of fact may be in error.

Replies are listed 'Best First'.
Re^2: Missing something with regards to references
by scottb (Scribe) on Nov 02, 2004 at 00:03 UTC
    This is very elegant and makes much more sense to me, so thank you dpuu. But given some of the points that blokhead raised, are there any other gotchas with this approach I should be concerned about?
      I don't think so: my explicit default-assignment should avoid any autovivication issues.
      Opinions my own; statements of fact may be in error.

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://404443]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2023-10-04 00:31 GMT
Find Nodes?
    Voting Booth?

    No recent polls found