How to Loop & rename MySQL table in Perl
- by Nano HE
Hi, Could you plesae teach me how to Loop & rename MySQL table in Perl. Thanks.
my code snippet attached
use strict;
use warnings;
use DBI;
my $dbh = DBI->connect(
'DBI:mysql:database=dbdev;host=localhost',
'dbdev',
'dbdevpw',
{ RaiseError => 1, AutoCommit => 1 },
);
my $sql = RENAME TABLE old_table TO new_table;
my $sth = $dbh->prepare($sql);
while (<DATA>){
chomp;
// How to implement the Rename all the old tables with the while loop.
$sth->execute();
}
