用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();
页:
[1]