Hello, I am trying to get the date when a table in a MySQL database has been changed. Table is MyISAM. This approach is returning nothing. Any suggestion?
#!/usr/bin/perl -w
use warnings;
use strict;
use CGI qw(-utf8);
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper qw(Dumper);
use DBI;
print "Content-type: text/html\n\n";
my $db = "";
my $host = "localhost";
my $user = "";
my $pass = "";
my $table = '2qPwZ7vr';
my $dbh = DBI->connect( "DBI:mysql:$db:$host", $user, $pass );
my $sql = "SHOW TABLE STATUS FROM your_database LIKE ?";
my $sth = $dbh->prepare($sql);
$sth->execute($table);
print "Last modified: ";
while ( my $row = $sth->fetchrow_hashref ) {
print Dumper "> " . $row;
}