#!/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";
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。