自己的记录 努力学perl中

  1. #!/usr/bin/perl -w 
  2. use strict; 
  3. use DBI; 
  4. my $dbh=DBI->connect("DBI:mysql:hlgmall","root","123456"); 
  5. print "create table xx select * from es_user_role"; 
  6. my $sth=$dbh->prepare("create table ll select * from es_user_role"); 
  7. $sth->execute(); 
  8. $sth->finish; 
  9. my $sth1=$dbh->prepare("create table hh select * from es_user_role"); 
  10. $sth1->execute(); 
  11. $sth1->finish; 
  12. $dbh->disconnect();