Help for this page

Select Code to Download


  1. or download this
    my ($sec, $min, $hour, $mday, $mon, $year) = localtime($_[0]);
$mon  += 1;
...
$time = sprintf("%d:%02d%s %d/%02d/%02d",
   $hour, $min, $ampm, $mon, $mday, $year
);
  2. or download this
    use POSIX qw( strftime );

# Formats as "6:45pm 10/31/2008"
$time = strftime('%I:%M%p %m/%d/%Y', localtime($_[0]));