Re: [PERL] Udregne måned

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

> >
> time - 3*30*24*60*60
>
> /Kim
>

tak for svaret. Jeg kunne dog ikke umiddelbart omsætte tallet til noget jeg
kunne bruge,
så jeg endte med dette:

    $date_string = strftime "%Y-%m-%d", localtime;

    my $sth = $dbh2->prepare("delete from table WHERE last_corrected <
DATE_SUB('$date_string', INTERVAL 3 MONTH) ");
    $sth->execute or die "Unable to delete: $dbh2->errstr\n";

men det er vel også ok :o)

/Poul