perl创建mysql数据库

发布时间：2020-12-16 00:06:31 所属栏目：大数据来源：网络整理

导读：## - - ##利用perl DBI创建数据库stucourse , 并创建student course grade表 ## - use DBI ; my $db_name? = ? "stucourse" ; ?#数据库名如果与现有数据库冲突，可改为其他名字 my $db_host? "localhost" ; ?#主机名 my $db_port? '3306' ; ?#端口号 my $us

 
   ##--

 ##利用perl DBI创建数据库stucourse,并创建studentgrade表

 ##-

 use DBI;

 my $db_name?=?"stucourse";?#数据库名
 my $db_host?"localhost";?#主机名

 my $db_port?'3306';?#端口号

 my $username?"root";?#用户名

 my $password?"123";?#密码

 my $dsn?"dbi:mysql:database=${db_name};hostname=${db_host};port=${db_port}";#数据源

 #获取驱动程序对象句柄

 my $drh=DBI>install_driver("mysql");?

 #如果存在数据库$db_name
 if($rc?=?$drh>func"dropdb"$db_name?$db_host$username$password"admin")?{?

 ????print?"drop database `"$db_name"` successfully!n";

 }

 #创建数据库$db_name

 $rc?"createdb")or

 ????die?"failed to create database ""!n";

 print?"create database `stucourse` successfully!n";

 #获取数据库句柄

 my $dbh?=?DBI?>?connect?$dsn?$password{RaiseError?=>?1>?0}"failed to connect to the database!n">errstr;

 #设置数据库字符集，防止中文乱码

 my $charset?"set character_set_database=utf8";

 my $sth?=?$dbh>prepare$charset;

 $sth>execute;

 #创建表course

 my $query?"CREATE TABLE `course` ( "

 ????????????."`cid` int(10) NOT NULL auto_increment,"

 ????????????"`cno` varchar(20) NOT NULL,255)">"`cname` varchar(20) default NULL,255)">"PRIMARY KEY (`cid`)"?

 ????????????")ENGINE=InnoDB DEFAULT CHARSET=utf8;"$query)?or die?"create table course error: ".$sth"create table `course` successfully!n";

 #创建表student

 my $query?"CREATE TABLE `student` ("

 ????????????"`sid` int(10) NOT NULL auto_increment,255)">"`sno` varchar(20) NOT NULL,255)">"`sname` varchar(20) default NULL,255)">"PRIMARY KEY (`sid`)"

 ????????????"create table student error: ""create table `student` successfully!n";

 #创建表grade

 my $query?"CREATE TABLE `grade` ("

 ?????????"`gid` int(10) NOT NULL,"

 ?????????"`cid` int(10) NOT NULL,255)">"`sid` int(10) NOT NULL,255)">"`grade` int(10) default NULL,255)">"PRIMARY KEY (`gid`),255)">"KEY `cid` (`cid`),255)">"KEY `sid` (`sid`),255)">"CONSTRAINT `cid` FOREIGN KEY (`cid`) REFERENCES `course`(`cid`),255)">"CONSTRAINT `sid` FOREIGN KEY (`sid`) REFERENCES `student`(`sid`)"

 ?????????") ENGINE=InnoDB DEFAULT CHARSET=utf8;""create table grade error: ""create table `grade` successfully!n";

 #关闭数据库连接

 $dbh>disconnect;

原文链接:

http://blog.chinaunix.net/uid-23781137-id-3184595.html

（编辑：李大同）

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