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";