Though Date::Manip is certainly able to do this kind of operations, I would not recommand using it. In fact neither the author of this module:
Is Date::Manip the one you should be using? In my opinion, the answer is no about 90% of the time. This sounds odd coming from the author of the software, but read on. Date::Manip is written entirely in perl. It's the most powerful of the date modules. It's also the biggest and slowest.
There are plenty of specialized module in the Date::* hierarchy that can fill the bill. For instance, I would use Time::Local for this kind of job, but I'm sure one could find a better suited module (maybe Date::Format?). Anyway here's a stab at it:
use Time::Local;
my $time1 = '010101112245';
my $time2 = '010101114556';
foreach ($time1, $time2){
my @t = $time1 =~ /(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/;
@t = reverse @t;
$_ = timelocal(@t);
}
print "Difference is: ", ($time1 -$time2), "\n";
Disclaimer: Code barely tested, not to be used to operate nuclear reactors.
<kbd>--
my $OeufMayo = new PerlMonger::Paris({http => 'paris.mongueurs.net'});</kbd> |