UNIX for Dummies Questions & Answers

mysql:Z16RrGHU3/vcc,4/k6:27:27:MySQL Server:/var/lib/mysql:/bin/bash
cshuser:Z16RrGHU3/vcc,4/..:506:506::/home/cshuser:/bin/csh

$ cat $(which long2date)
#!/usr/bin/env perl

use File::Basename;
usage() if( !$ARGV[0] );

$long = $ARGV[0] if ( $ARGV[0] );

#  0    1    2     3     4    5     6     7     8
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime( $long );
$year+=1900;$mon+=1;

$datestr = sprintf( "%04d-%02d-%02d %02d:%02d:%02d" ,
                    $year,
                    $mon,
                    $mday,
                    $hour,
                    $min,
                    $sec );

printf( "%s\n" , $datestr );

sub usage()
{
  $progname = basename($0);
  printf STDOUT "usage: %s <long>\n" , $progname;
  exit 1;
}


$ long2date 1158728002
2006-09-19 23:53:22