Help for this page

Select Code to Download


  1. or download this
    my @dateparts = split '/|\s+', $date;
  2. or download this
    @dateparts[0,1] = @dateparts[1,0] if $dateparts[1] =~ /^[A-Z]/;
  3. or download this
    $dateparts[2] += ($dateparts[2] > 99) ? 0 :
                     ($dateparts[2] > 9) ? 1900 : 2000;
  4. or download this
    exists $months{$dateparts[0]} or die 'Bad Month!';
  5. or download this
    print $months{$dateparts[0]},
      ' ',
      0+$dateparts[1],
      ', ',
      dateparts[2];