Converting date to specified format and two date comparisions

Question

Given Two Dates:

$Date1

format: yyyy-mm-dd hh:mm:ss eg:  2013-05-21 07:47:21

$Date2

Answer 1

Parse the date using regular expressions and use the Time::Local functions to convert into seconds past 1 Jan 1970 to compare integers.

Answer 2

How about:

use Time::Piece;
my $d1 = '2013-05-21 07:47:21';
my $d2 = 'Thu Aug  1 09:53:40 2013';
my $t1 = Time::Piece->strptime($d1, "%Y-%m-%d %T");
my $t2 = Time::Piece->strptime($d2, "%c");
say $t2->epoch - $t1->epoch;

output:

6228379

Time::Piece documentation