Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
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; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Get timestamp of last modify of MySQL table
by LanX (Saint) on Mar 05, 2022 at 19:03 UTC | |
by Anonymous Monk on Mar 05, 2022 at 21:59 UTC | |
by perlfan (Parson) on Mar 10, 2022 at 15:40 UTC |