Re: parsing date string

[OeufMayo]

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>