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

[Flemming Mahler Larsen <sslug@sslug>]

Anders Sønderberg Mortensen wrote:

> 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.
> >    
> >
> > 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.
Hvis der findes et standard trick, så må det være at få lidt hjælp fra 
CPAN. Alt hvad der hedder dato-beregninger er "Date::Calc" ekspert i, og 
her vil du skulle ud i noget der minder om:

---< snip >--
$start =~ /^(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+).*/;
my ($y,$m,$d,$h,$mi) = ($1,$2,$3,$4,$5,$6);

$stop =~ /^(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+).*/;
my ($y2,$m2,$d2,$h2,$mi2) = ($1,$2,$3,$4,$5,$6);

my ($D_y,$D_m,$D_d, $Dh,$Dm,$Ds) = Date::Calc::Delta_YMDHMS($y1,$m1,$d1, 
$h1,$mi1,0, $y2,$m2,$d2, $h2,$mi2,0);
---< snip >--

Herefter kan du (eventuelt) sprintf'e værdierne ud i de format du har 
brug for.

(( Flemming ))