Re^2: Deleting Old MySql Records With PERL

Here's some actual code from the cgi.

#/usr/bin/perl -w
use DBI; 
use CGI ':standard'; 
print "Content-type: text/html\n\n";

my $dbh = DBI->connect('dbi:mysql:my_db','searcher','searcherpasswd')
or die "Connection Error: $DBI::errstr\n";
##DELETE FROM my table WHERE DATE(NOW(), date) >30;
DELETE FROM my table where now()-d >interval '30days';
[download]

Here are some error messages. The first is when using the 'Commented Out' piece of code. The others are when using the other piece of code.

Undefined subroutine &main::NOW called at e:\owner\website \cgi-bin\se
+arch_ specialty.pl line 13

[Wed Jul 13 15:26:07 2016] [error] [client 72.208.178.63] String found
+ where operator expected at e:\owner\website \cgi-bin\search_ special
+ty.pl line 14, near "interval '30days'"

[Wed Jul 13 15:26:07 2016] [error] [client xx.xxx.xxx.xx]     (Do you 
+need to predeclare interval?)

Syntax error at e:\owner\website \cgi-bin\search_ specialty.pl line 14
+, near ")-d "

Execution of e:\pinnacle\website\cgi-bin\search_specialty.pl aborted d
+ue to compilation errors.
[download]

According to advise from several tech sites the code should work. But, it doesn't.

Comment on Re^2: Deleting Old MySql Records With PERL Select or Download Code

Replies are listed 'Best First'.
Re^3: Deleting Old MySql Records With PERL by NetWallah (Canon) on Jul 13, 2016 at 22:15 UTC
In addition to what perlfan said about SQL syntax, you also have a problem with perl syntax. The DELETE statement is SQL, not perl. As such, it needs to be quoted, and passed to $dbh->do("SQL here"); Be careful to properly escape quotes, when passing SQL to do(). There is no time like the present for postponing what you ought to be doing.	[reply]
Re^4: Deleting Old MySql Records With PERL by Milti (Beadle) on Jul 13, 2016 at 23:47 UTC
I'm now using this code. Still getting an error message. `use DBI; use CGI ':standard'; print "Content-type: text/html\n\n"; my $dbh = DBI->connect('dbi:mysql:my_db','searcher','searcherpasswd') or die "Connection Error: $DBI::errstr\n"; $sth = $dbh->prepare ("DELETE FROM my table where DATE <UNIX_TIMESTAMP +(DATE_SUB(NOW()-INTERVAL 30 DAY)"); $sth->execute ();` [download] Error message ---- DBD::mysql::st execute failed: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1 at e:\owner\cgi-bin\search_specialty.pl line 14. Line 14 is $sth->execute ();	[reply] [d/l]
Re^5: Deleting Old MySql Records With PERL by NetWallah (Canon) on Jul 14, 2016 at 05:02 UTC
See perlfan's reply, below - where he explains that your column name, "date" is a reserved word, and therefore needs to be escaped using backticks. For more info, see this stackoverflow article. There is no time like the present for postponing what you ought to be doing.	[reply]
Re^3: Deleting Old MySQL Records by hippo (Archbishop) on Jul 13, 2016 at 21:26 UTC
Your code doesn't pass any queries to the database to be executed. It's unnecessarily difficult to read that post as it stands. Please edit it and enclose both the code and the error messages in `<code>` tags. Thank you.	[reply] [d/l]