Re: Calculating Difference In Dates

[kcott]

G'day Bugz,

You can use the core modules Time::Piece and Time::Seconds:

#!/usr/bin/env perl -l

use strict;
use warnings;

use Time::Piece;
use Time::Seconds;

my $date1 = "2014/01/25 23:11:14";
my $date2 = "2014/01/26 00:30:37";
my $format = '%Y/%m/%d %H:%M:%S';

my $t0 = Time::Piece->strptime($date1, $format);
my $t1 = Time::Piece->strptime($date2, $format);

my $diff = $t1 - $t0;

my $mins = int $diff->minutes;
my $secs = $diff - $mins * 60;

print "Minutes: $mins";
print "Seconds: $secs";

Output:

Minutes: 79
Seconds: 23

[Anonymous Monk]

Thank you Ken.