Help for this page

Select Code to Download


  1. or download this
    my %month = map { $_ => 1 } qw(jan feb mar apr may jun jul aug sep oct
+ nov dec);
  2. or download this
    my %month;
my @month = qw(jan feb mar apr may jun jul aug sep oct nov dec);
@month{@month} = (1) x @month;
  3. or download this
    my @month = qw(jan feb mar apr may jun jul aug sep oct nov dec);
my %month = map { $_ => $month[$_] } (0..$#month);
...
$m_name = $month{$m_number};