Re: Finding the difference between 2 dates in seconds

Or, for the lazy...

use Date::Manip;

my @sec = map UnixDate($_, "%s"), "Aug 26 23:10:59", "Aug 27 10:59:02"
+;

printf "diff secs: %d\n", $sec[1] - $sec[0];   # = 42483
[download]

Comment on Re: Finding the difference between 2 dates in seconds Download Code

Replies are listed 'Best First'.
Re^2: Finding the difference between 2 dates in seconds by Not_a_Number (Prior) on Sep 17, 2007 at 13:38 UTC
I'm even lazier :) `use Date::Parse; print str2time( 'Aug 27 10:59:02' ) - str2time( 'Aug 26 23:10:59' );` [download]	[reply] [d/l]
Re^2: Finding the difference between 2 dates in seconds by ambrus (Abbot) on Sep 28, 2007 at 12:12 UTC
Alternately, `use Date::Manip; my $date_1="Aug 26 23:10:59"; my $date_2="Aug 27 10:59:02"; my $sec = Delta_Format(DateCalc($date_1, $date_2), 0, "%st"); printf "diff secs: %d\n", $sec;` [download]	[reply] [d/l]