I'm really tired of retyping this:
my $mons = {'Jan'=>1,'Feb'=>2,'Mar'=>3,'Apr'=>4,'May'=>5,'Jun'=>6,
'Jul'=>7,'Aug'=>8,'Sep'=>9,'Oct'=>10,'Nov'=>11,'Dec'=>12};
my %months = { '1'=>'Jan','2'=>'Feb','3'=>'Mar','4'=>'Apr','5'=>'May','6'=>'Jun','7'=>'Jul','8'=>'Aug','9'=>'Sep','10'=>'Oct','11'=>'Nov','12'=>'Dec'};
Incase, you want the reverse one with strict
Thanks, just what I needed and the #2 google result for "perl month"
you, sir, just saved me 30 seconds, which i squandered thanking you.
thank you.
DUDE THE SYNTAX IS WRONG ITS () FOR HAS NOT {} ARRRGGGHHH YOU WASTED MY TIME DEBUGGING NOT helped.. BUT THANKS ANYWAY actually the months helped so i dont type tyhem in.
the code is right you just have to know how to get at the data
my %mons = ('Jan'=>1,'Feb'=>2,'Mar'=>3,'Apr'=>4,'May'=>5,'Jun'=>6,
'Jul'=>7,'Aug'=>8,'Sep'=>9,'Oct'=>10,'Nov'=>11,'Dec'=>12);
print $mons{'Jan'};
my $mon = {'Jan'=>1,'Feb'=>2,'Mar'=>3,'Apr'=>4,'May'=>5,'Jun'=>6,
'Jul'=>7,'Aug'=>8,'Sep'=>9,'Oct'=>10,'Nov'=>11,'Dec'=>12};
print $mon->{'Jan'};
