Dato & tid: beregning af tider

[Klaus Friis Østergaard <sslug@sslug>]

Jeg har nogle log filer jeg gerne ville manipulere inde jeg indlæser data
til en database i MySQL.

Selve rådata ser sådan ud:
#1 LASER04 12/27/02 13:02:40 STARTET 102669.PGM
#2 LASER04 12/27/02 13:07:32 STOPPET 102669.PGM
#3 LASER04 12/27/02 13:07:57 STARTET 102669.PGM
#4 LASER04 12/27/02 13:12:49 STOPPET 102669.PGM
#5 LASER04 12/27/02 13:13:21 STARTET 102669.PGM

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

Kan det lade sig gøre i Perl? 


Klaus F. Østergaard