Replacing string with number

nejcPirc has asked for the wisdom of the Perl Monks concerning the following question:

Hello.
I would like to replace my scalar value(string) with a key's value(number), which is included in hash.
So if i have a month called January it should be changed to "01";

$month="January";

%months=('January'  =>01,
     'February' =>02,
     'March'    =>03,
     'April'    =>04,
     'May'      =>05,
     'June'     =>06,
     'July'     =>07,
     'August'   =>08,
     'September'=>09,
     'October'  =>10,
     'November' =>11,
     'December' =>12
    );
#  if($month ?in? %months)
#  { $month=%months{$month}; }

print "$month\n";  #output-> "01"
[download]

Thanx.

Comment on Replacing string with number Download Code

Replies are listed 'Best First'.
Re: Replacing string with number by Arunbear (Prior) on Sep 30, 2004 at 11:53 UTC
Use exists : `if(exists $months{$month}) { $month = $months{$month} }`	[reply] [d/l]
Re^2: Replacing string with number by nejcPirc (Acolyte) on Sep 30, 2004 at 12:00 UTC
Thanks a lot:)	[reply]
Re: Replacing string with number by tachyon (Chancellor) on Sep 30, 2004 at 11:54 UTC
`# simple literal key only $month = $months{$month} if exists $month{$month}; # more flexible any instance my $re = join '\|', map{quotemeta} keys %months; $month =~ s/($re)/$months{$1}/g;` [download] Note you need to quote strings on the RHS of => otherwise Perl will see 08 and complain about your illegal octal. cheers tachyon	[reply] [d/l]
Re: Replacing string with number by ikegami (Patriarch) on Sep 30, 2004 at 14:42 UTC
Another way, for fun: `$month=$months{$month}\|\|$month;`	[reply] [d/l]