On Tue, Mar 18, 2003 at 01:27:05AM +0100, H.Merijn Brand wrote: > > > > my $i; > > my %months = map {$_ => $i ++} qw /Jan Feb Mar Apr May Jun > > Jul Aug Sep Oct Nov Dec/; > > Written less ambigous as > > my %month; > @month(qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec)) = 0..11; Sorry if slightly off-topic, but don't you think that January is the 1st month of the year and December the 12th ? :) my %months = map {$_ => ++$i } qw /Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/; @month { qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec) } = 1..12; Regards AdiThread Previous | Thread Next