Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Can I create hash dynamically by looping through an array? The hash name should be the array element

by choroba (Chancellor)
on Jan 25, 2013 at 12:51 UTC ( #1015340=note: print w/replies, xml ) Need Help??


in reply to Can I create hash dynamically by looping through an array? The hash name should be the array element

Yes, you can - if you are not using strict refs:
for my $element (qw/var1 var2 var3/) { %$element = ( a => 'b'); } print $var1{a};
The common practice, though, is to use one hash instead, making the elements of the list the keys. You can then shorten the creation to
my @array = qw(var1 var2 var3); my %hash; undef @hash{@array};
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
  • Comment on Re: Can I create hash dynamically by looping through an array? The hash name should be the array element
  • Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1015340]
help
Chatterbox?
[Tux]: None work for me. My dead key is AltGr (right Alt)
[Tux]: And I just tested, neither do other Tk apps :) (95% of my Tk Apps is either just monitoring (no input) or input of just numbers). Something to investigate then
[choroba]: Maybe something like this?
[choroba]: I vaguely remember we had problems with dead keys in Tk at $work - 2, but I forgot all the details
[choroba]: but it was worse on MSWin than on Linux
[choroba]: (and OSX didn't exist yet)
[choroba]: Also, I'd try starting the App with the US layout and switch to the dead keys layout later

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2017-09-25 20:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    During the recent solar eclipse, I:









    Results (290 votes). Check out past polls.

    Notices?