您现在正在浏览：站长之家 >> 数据库 >> 详细内容

Perl操作My SQL数据库

时间:2007-12-23 来源:不详作者:迈克DB

一.安装DBI模块
步骤1：
从TOOLS栏目中下载DBI.zip,下载完后用winzip解开到一个temp目录,共有三个文件：
Readme
DBI.ppd
DBI.tar.gz
步骤2：
在DOS窗口下，temp目录中运行下面的DOS命令：
ppminstallDBI.ppd

假如提示无效命令,可在perl/bin目录下运行

二.安装DBD-Mysql模块
从软件下载中下载DBD-Mysql.zip,安装方法同一.

三.预备数据库

启动mysql,首先创建一个数据库mydata,然后创建一个表address

mysql>createdatabasemydata;
QueryOK,1rowaffected(0.00sec)

mysql>usemydata;
Databasechanged
mysql>createtableaddress(
->idint(5)notnull,
->namevarchar(40)notnull,
->emailvarchar(50)notnull,
->telephoneint(12)null);
QueryOK,0rowsaffected(0.05sec)

输入些数据:
mysql>insertintoaddressvalues(
->1,’Nighthawk’,’nighthawk@163.net’,92384092);
QueryOK,1rowaffected(0.00sec)

四.下面用perl程序来插入若干记录并做查询.

useDBI;

#连接数据库mydata
my$dbh=DBI->connect(’DBI:mysql:mydata’)ordie"无法连接数据库:".DBI->errstr;

内容来自dedecms

print"插入若干记录";
my$sth=$dbh->prepare(q{
INSERTINTOaddress(id,name,email,telephone)VALUES(?,?,?,?)
})});

print"输入记录,回车结束:";
while($inputdata=<>){
chop$inputdata;
lastunless($inputdata);
my($id,$name,$email,$tel)=split(/,/,$inputdata);
$sth->execute($id,$name,$email,$tel)
}
#$dbh->commit;

print"下面根据输入的名字打印出EMAIL地址和电话";
my$sth=$dbh->prepare(’SELECT*FROMaddressWHEREname=?’)
ordie$dbh->errstr;
print"请输入姓名,回车结束:";
while($inputname=<>){
my@data;
chomp$inputname;
lastunless($inputname);
$sth->execute($inputname)ordie"错误:".$sth->errstr;
while(@data=$sth->fetchrow_array()){
print"Email:$data[2]\tTelephone:$data[3]";
}
}
#断开连接
$dbh->disconnect;