Help for this page

Select Code to Download


  1. or download this
    my @months = qw[ Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec ];
  2. or download this
    my @months = '',qw[ Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec ];
  3. or download this
    print "Today is in the month ",$month[$calendar_month-1],"\n";
  4. or download this
    sub get_month_name
{
     my ($calendar_month) = @_;

     return $month[$calendar_month-1];
}