Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Initializing an anonymous hash

by davies (Vicar)
on Mar 30, 2012 at 15:35 UTC ( #962637=note: print w/ replies, xml ) Need Help??


in reply to Initializing an anonymous hash

eval works for me.

use strict; my $hash = {'MONTH' => 'January'}; print $hash->{MONTH} . "\n"; my $hashInitStr = "{'MONTH' => 'January'}"; # This would come from a f +ile my $hash1 = eval $hashInitStr; print $hash1->{MONTH} . "\n"

returns

Z:\Data\Perl>962633.pl January January Z:\Data\Perl>

Regards,

John Davies

Update: Be aware that this has hideous security implications. Also, as Moritz explained to me in reply to Testing error handling that calls "die", there are two forms of eval. But the code given above does what I think you say you want.


Comment on Re: Initializing an anonymous hash
Select or Download Code
Re^2: Initializing an anonymous hash
by Anonymous Monk on Mar 30, 2012 at 15:56 UTC
    Thanks for your help and for introducing me to eval. I will do some reading.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (12)
As of 2014-10-31 13:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (217 votes), past polls