Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Populating hash keys

by zby (Vicar)
on Oct 03, 2003 at 13:24 UTC ( [id://296222]=note: print w/replies, xml ) Need Help??


in reply to Populating hash keys

Update: Reading liz response I realized that I've done a reverse task to what was asked for.

Here is a recursive subroutine for that:

sub applypath{ my($val, $index, @path) = @_; if(!defined($index)){ return $val; } return applypath($val->{$index}, @path); }
You might add some parameter checking if you need it and of course an iterative subroutine would be more efficient if you are into optimisation.

By the way I feel that my @keys = qw (1,2,3) is not exactly what you wanted to write as it is equivalent to my @keys = "1,2,3". Read about the qw operator on the perlop manpage (perldoc perlop).

Replies are listed 'Best First'.
Re: Re: Populating hash keys
by dda (Friar) on Oct 03, 2003 at 13:32 UTC
    zby, thanks for your note about qw :)

    --dda

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others admiring the Monastery: (3)
As of 2024-03-29 14:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found