Help for this page

Select Code to Download


  1. or download this
    use Time::Local;

...
my $time = timelocal($5, $4, $3, $2, $MONTHS_LOOKUP{$1}, 2005);

print(scalar(localtime($time)), "\n");
  2. or download this
    use Time::Local qw( timelocal_nocheck );

...
   timelocal_nocheck($5, $4, $3, $2, $MONTHS_LOOKUP{$1}, 2005);

print(scalar(localtime($time)), "\n");