Re: [PERL] Tid i PERL

["Nezar Nielsen" <sslug@sslug>]

----- Original Message -----
From: "Simon B.Nielsen" <sslug@sslug>
To: <sslug@sslug>
Sent: Sunday, September 03, 2000 11:15 AM
Subject: [PERL] Tid i PERL


> 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å?

Hej Simon,

Sådan:

@d=(localtime((time()-86400)))[0..5];
$d[5]+=1900;
$d[4]++;
for(0..4){
    $d[$_]=($d[$_]>9)?$d[$_]:'0'.$d[$_];
}
print reverse @d;


Eller på en oneliner:

perl -e '@d=(localtime((time()-86400)))[0..5];
$d[5]+=1900;$d[4]++;for(0..4){$d[$_]=($d[$_]>9)?$d[$_]:"0".$d[$_];} print
reverse @d'

Du kan selvfølgelig også finde dig et modul til at lege med datoer i, men
mon ikke mysql har en indbygget funktion til at selecte datoer..

--
Mvh. Nezar Nielsen
http://lort.net/