Re: [PERL] Udregne måned

[Poul Møller Hansen <sslug@sslug>]

> Hvorfor kan du ikke omsætte tallet til noget fornuftigt. Prøv at køre
> følgende script:
>
> #!/usr/bin/perl
> print localtime(time-3*30*24*60*60).\n";
>
> Og fortæl mig så igen om dette giver dig noget fornuftigt.

Det giver Tue Jun 19 12:16:07 2001 og det ville selvfølgelig have passet
hvis der var 30 dage i hver måned.
Jeg skal have slettet data in database, derfor skal jeg have datoen på
formen 2001-09-17
og har selvfølgelig en database til rådighed ;o)

Poul