Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -w
use strict;
...
    my ($day,$month,$year) = (strptime $_)[3,4,5];
    printf "%s %d %d\n", $months[$month], $day, $year + 1900;
}
  2. or download this
    April 8 1984
April 8 1984
April 8 1984
April 8 1984
April 8 1984