perlcgi中操作mysql数据库

《perlcgi中操作mysql数据库》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、PerlCGI中操作Mysql数据库>>教育资源库　　一.安装DBI模块　　步骤1：　　从TOOLS栏目中下载DBI.zip,下载完后用p目录,共有三个文件：　　Readme　　DBI.ppd　　DBI.tar.gz　　步骤2：　　在DOS窗口下，temp目录中运行下面的DOS命令：　　ppminstallDBI.ppd　　　　如果提示无效命令,可在perl/bin目录下运行　　　　二.安装DBD-Mysql模块　　从软件下载中下载DBD-Mysql.zip,安装方法同一.　　　　三.准备数据库　　　　启动mysql,首先创建一个数据库mydata,然后创建一个表ad

2、dress　　　　mysql>createdatabasemydata;　　QueryOK,1roysql>usemydata;　　Databasechanged　　mysql>createtableaddress(　　->idint(5)notnull,　　->namevarchar(40)notnull,　　->emailvarchar(50)notnull,　　->telephoneint(12)null);　　QueryOK,0roysql>insertintoaddressvalues(　　->1,'Ni

3、ghthaydata　　my$dbh=DBI->connect('DBI:mysql:mydata')ordie"无法连接数据库:".DBI->errstr;　　print"插入若干记录";　　my$sth=$dbh->prepare(q{　　INSERTINTOaddress(id,name,email,telephone)VALUES(?,?,?,?)　　})});　　　　print"输入记录,回车结束:";　　y($id,$name,$email,$tel)=split(/,/,$inputdata);　　$sth->execute(

4、$id,$name,$email,$tel)　　}　　#$dbh->mit;　　　　print"下面根据输入的名字打印出EMAIL地址和";　　my$sth=$dbh->prepare('SELECT*FROMaddresse=?')　　ordie$dbh->errstr;　　print"请输入姓名,回车结束:";　　e=<>){　　mydata;　　chomp$inputname;　　lastunless($inputname);　　$sth->execute($inputname)ordie"错误:".$sth->er

5、rstr;　　ail:$data[2]tTelephone:$data[3]";　　}　　}　　#断开连接　　$dbh->disconnect;>>>>这篇文章来自..，。