Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.
 
PerlMonks  

Re^2: Is it possible to use key/values of a Hash/Hash ref while it's being initialized?

by ikegami (Patriarch)
on Sep 15, 2005 at 02:35 UTC ( [id://492105]=note: print w/replies, xml ) Need Help??


in reply to Re: Is it possible to use key/values of a Hash/Hash ref while it's being initialized?
in thread Is it possible to use key/values of a Hash/Hash ref while it's being initialized?

or

my %hash = map { my $foo = 'longstring'.$_.'more'; $_ => { key1 => $foo, key2 => alter($foo) } } @list;

or (the wacky)

my %hash = map { $_->[0] => { key1 => $_->[1], key2 => alter($_->[1]) } } map { [ $_ => 'longstring'.$_.'more' ] } @list;

or (the efficient)

my %hash; foreach (@list) { my $foo = 'longstring'.$_.'more'; $hash{$_} = { key1 => $foo, key2 => alter($foo), }; }

or (using auto-vivification)

my %hash; foreach (@list) { my $foo = 'longstring'.$_.'more'; $hash{$_}{key1} = $foo; $hash{$_}{key2} = alter($foo); }

or

my %hash; foreach my $key (@list) { foreach ('longstring'.$key.'more') { $hash{$key} = { key1 => $_, key2 => alter($_), }; } }

or

my %hash; foreach my $key (@list) { foreach ('longstring'.$key.'more') { $hash{$key}{key1} = $_; $hash{$key}{key2} = alter($_); } }

or (in two steps)

my %hash = map { $_ => { key1 => 'longstring'.$_.'more' } } @list; $hash{$_}{key2} = alter($hash{$_}{key1}) foreach keys %hash;

Updated: Added more alternatives.

Updated: Fixed bug. Changed $_ to $key in the concatenation in later snippets.

Updated: Added more alternatives.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others cooling their heels in the Monastery: (4)
As of 2024-03-29 12:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found