Help for this page

Select Code to Download


  1. or download this
    use strict;

...
my $hashInitStr = "{'MONTH' => 'January'}"; # This would come from a f
+ile
my $hash1 = eval $hashInitStr;
print $hash1->{MONTH} . "\n"
  2. or download this
    Z:\Data\Perl>962633.pl
January
January

Z:\Data\Perl>