Re: [PERL] Dato & tid: beregning af tider

[Anders Sønderberg Mortensen <sslug@sslug>]

On Fri, 27 Dec 2002, Klaus Friis Østergaard wrote:

> Tiden står i følgende format mm/dd/yy hh:mm:ss, dette skal over til
> yyyy-mm-dd hh:mm:ss og så vil jeg gerne beregne tidsforskellen mellem
> linjerne #1 og #2, og #2 og #3.
>
> Det er dog ikke vist i eksemplet men loggen kører døgnet rundt og året rundt
> så den skal også kunne håndtere dato skift, skudår ect.
>
> Jeg ville gerne ende op med dette:
> LASER04 102669 2002-12-27 13:02:40 00:04:52 00:00:35 Produktion
> LASER04 102669 2002-12-27 13:07:57 00:04:52 00:00:32 Produktion

Standard-tricket er at regne om til epoch sekunder (sekunder siden
årskiftet 01/01/1970) og subtrahere disse epoch tidsstempler.

Du skal gøre noget i retning af:

use Time::Local;
$epoch1 = localtime($sec1, $min1, $hr1, $day1, $month1, $yr1);
$epoch2 = localtime($sec2, $min2, .....);

$forskel = $epoch2 - $epoch1;    ## Tidsforskel i sekunder

Hilsen

--Anders