note OeufMayo <p>Though [cpan://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:<br /> <i> 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.<br />Date::Manip is written entirely in perl. It's the most powerful of the date modules. It's also the biggest and slowest.</i> </p> <p>There are plenty of specialized module in the Date::* hierarchy that can fill the bill. For instance, I would use [cpan://Time::Local] for this kind of job, but I'm sure one could find a better suited module (maybe [cpan://Date::Format]?). Anyway here's a stab at it:</p> <code> 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"; </code> <p><small><b>Disclaimer</b>: Code barely tested, not to be used to operate nuclear reactors.</small></p> <kbd>-- <br> my $<a href="/index.pl?node=OeufMayo&lastnode_id=1072">OeufMayo</a> = new PerlMonger::Paris({http => '<a href="http://paris.mongueurs.net">paris.mongueurs.net</a>'});</kbd> 76218 76218