Shell Programming and Scripting

## perl -e ' print scalar(localtime(time + 0)), "\n"'
Tue Jul 13 17:45:50 2010
##

$ perl -e ' print time(), "\n"'

1279043432

cat ToEpoch
#!/usr/bin/perl

my $day = @ARGV[0];
my $mon = @ARGV[1] -1;
my $year = @ARGV[2];

my $hour = @ARGV[3];
my $min = @ARGV[4];
my $sec = @ARGV[5];

use Time::Local;
my $time = timelocal($sec,$min,$hour,$day,$mon,$year);
print $time."\n";

$ ./ToEpoch 15 06 2011
1308088800

$ ./ToEpoch 15 6 2011 16 00 00
1308146400

$
$
$ perl -MTime::Local -le 'print "June 15, 2011 12:00 AM is ", timelocal(0,0,0,15,5,2011) - time, " seconds from right now."'
June 15, 2011 12:00 AM is 29065434 seconds from right now.
$
$