#!/usr/bin/perl -w use strict; use DBI; my $database = "test"; my $hostname = "localhost"; my $user = "test"; my $pass = "test"; my $dsn = "DBI:mysql:database=$database;host=$hostname"; my $dbh = DBI::->connect($dsn, $user, $pass, { 'RaiseError' => 1, 'AutoCommit' => 1 }); #######debug###### #my $c = $dbh->do('SELECT datum FROM spam_log WHERE datum<=DATE_SUB(CURDATE(), INTERVAL 7 DAY)'); #print $c; ######debug###### $dbh->do('DELETE FROM spam_log WHERE datum<=DATE_SUB(CURDATE(), INTERVAL 7 DAY)');
Have fun