Re: [PERL] Udregne måned

[Thomas Eibner <sslug@sslug>]

On Thu, Sep 13, 2001 at 08:48:28AM +0200, Poul Møller Hansen wrote:
> > >
> > 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";

Husk at placeholders altid er en god ting:

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

Saa er du sikker paa at strengen bliver escapet korrekt (selvom du selv
har genereret den og du ved der ikke er nogen "'"er i er det en god ting
at goere.

-- 
  Thomas Eibner <http://thomas.eibner.dk/> DnsZone <http://dnszone.org/>
  mod_pointer <http://stderr.net/mod_pointer>