Help for this page

Select Code to Download


  1. or download this
    if ((($month, $day, $year) = /($month)($day)($year)/io) ||
    (($day, $month, $year) = /($day)($month)($year)/io)) {
....
}
  2. or download this
    
             JANUARY  => 'Jan',
...
             ....
             DEC      => 'Dec',
             DECEMBER => 'Dec');
  3. or download this
    printf('%02d-%s-%04d', $day, $mhash{uc $month}, $my_year);
  4. or download this
    my %mhash = (JAN      => {Name => 'Jan', Days => 31},
             ....
  5. or download this
    printf('%02d-%s-%04d', $day, $mhash{uc $month}{Name}, $my_year);