Creating unix times from datetime stamps

Posted by robbiebow on 3 August, 2008 under perl | Be the First to Comment

Scenario: you want to convert "2008-08-02 12:45:01" to the unix epoch time:

use Time::Local qw/timegm/;
my $dt = "2008-08-02 12:45:01";
my @datetime  = split /\-|:|\s/, $dt;
$datetime[1]--; # months need decrementing
my $epoch_time = timegm(reverse @datetime);