用perl操作mysql数据库的脚本

自己的记录 努力学perl中

#!/usr/bin/perl -w
use strict;
use DBI;
my $dbh=DBI->connect("DBI:mysql:hlgmall","root","123456");
print "create table xx select * from es_user_role";
my $sth=$dbh->prepare("create table ll select * from es_user_role");
$sth->execute();
$sth->finish;
my $sth1=$dbh->prepare("create table hh select * from es_user_role");
$sth1->execute();
$sth1->finish;
$dbh->disconnect();