Re: [PERL] Tid i PERL

[Carsten Svaneborg <sslug@sslug>]

"Simon B.Nielsen" wrote:
> Det jeg skal bruge er en tekststreng indeholdende igårs dato i
> formatet YYYYMMDDHHMMSS.

Prøv at kigge på strftime, den findes både i C og perl, og er lige
hvad du har brug for.

Eksempel:

use POSIX qw(strftime);

my $igaar = 24*60*60;

#korrekt format laves med følgende linie
my $date = strftime "%a, %e %b %Y %H:%M:%S", localtime(time-$igaar);


time returnere antallet sekunder siden 1970. time-$igaar er tiden
eksakt en dag tidligere, og denne omformes til lokaltid, hvilket 
jeg ikke er sikker på er nødventigt. strftime omdanner så tiden til
en streng der er formateret som "Sat, 29 Jul 2000 16:45:27".
Man siden for strftime lister alle koderne for div. datoer.

-- 
    No matter how fast light travels it finds *
    the darkness has always got there first,  *  Carsten Svaneborg
	     and is waiting for it.           *   zqex at risoe.dk
	-- (Terry Pratchett, Reaper Man)      *