sqlserver数据导入mysql一: 创建mysql数据库 perl脚本

#!/usr/bin/perl
use DBI;
use Switch;

my $db_name="DB";
	my $location="192.168.0.208";
	my $port="3306";
	my $db_user="zoe";
	my $db_pass='123'; 
	#帐号密码要注意有特殊符号时用的引号类型


	#获取驱动程序对象句柄
my $drh=DBI->install_driver("mysql"); 
#如果存在数据库$db_name,则删除之
#$if($rc = $drh->func("dropdb",$db_name,$location,$db_user,$db_pass,"admin") ){ 
  #  print "drop database `","` successfully!n";
#}
#创建数据库$db_name
$rc = $drh->func("createdb","admin")or
    die "failed to create database ","!n";
print "create database `stucourse` successfully!n";

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!