Re: [PERL] Slette data ældre en 3 måneder

[sslug@sslug]

> Jeg har fået rodet mig ud i noget forfærdeligt noget her:
> 
> $Year = strftime "%Y", localtime;
> $Month = strftime "%m", localtime;
> $Day = strftime "%d", localtime;
> 
> ($year,$month,$day) = Add_Delta_Days($Year,$Month,$Day, -90);
> 
> men $month er 3 og ikke 03, og jeg skal bruge en yyyy-mm-dd streng, hjælp!!

Jeg synes det her ser lidt pænere ud.

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

$now = sprintf "%4i-%02i-%02i", 1900+$year, $mon, $mday;

Og uden Date::Calc

$mon -= 3;
if ($mon<1) {$mon += 12; $year--;}
$then = sprintf "%4i-%02i-%02i", 1900+$year, $mon, $mday;


MVH David