Re: [PERL] Tid i PERL

[Jacob Eiler <sslug@sslug>]

"Simon B.Nielsen" wrote:
> 
> Jeg er ved at lave et PERL script der skal hente nogle informationer fra
> MySQL. Det den skal gøre er at hente samtlige data indsat dagen i
> forvejen. I min MySQL database har jeg så et timestamp(14) felt.
> Mit problem er at jeg ikke synes at kunne finde en simpel måde at få lagt
> en dato ned i et felt jeg kan bruge i min SQL sætning. Det jeg skal bruge
> er en tekststreng indeholdende igårs dato i formatet YYYYMMDDHHMMSS. Er
> der nogen det har en let måde at gøtr det på?
> 
> Simon


Se paa localtime(time) den giver dig alle de informationer du skal
bruge i en liste (den giver flere informationer end de 6 elementer
nedenfor).

  ($second, $minute, $hour, $dayOfMonth, $month, $year) =
localtime(time);

NB! $month ligger mellem 0 og 11, og $year regnes fra 1900; Den streng 
fremkommer nu med sprintf:

  $timestamp = sprintf("%d%d02%d02%d02%d02%d02",
                       ($year + 1900, $month + 1, $dayOfMonth, $hour,
$minute, $second));

/eiler
 

-- 
Jacob Eiler - Software Developer - sslug@sslug
Realtime - Kalvebod brygge 43 - DK-1560 Copenhagen - www.realtime.dk