自己的记录 努力学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();