登录模块加载中...
会员投稿 投稿指南 今天是:
打印本页 | 关闭窗口 | 双击滚屏 您的位置首页>>网页制作学习园地>>CGI教程>>CGI应用>>用perl访问mysql数据库之二
用perl访问mysql数据库之二
来源:不详 ‖ 作者:佚名 ‖ 点击: ‖ 时间:14-01-14 14:52:09 ‖ 【 】‖ 我要投稿
四. 下面用perl程序来插入若干记录并做查询. 

use DBI; 

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

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

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

# $dbh->commit; 

print "下面根据输入的名字打印出EMAIL地址和电话n"; 
my $sth = $dbh->prepare(’SELECT * FROM address WHERE name=?’) 
or die $dbh->errstr; 
print "请输入姓名,回车结束:"; 
while ($inputname =<>) { 
my @data; 
chomp $inputname; 
last unless($inputname); 
$sth->execute($inputname) or die "错误: " . $sth->errstr; 
while (@data = $sth->fetchrow_array()) { 
print "Email:$data[2]t Telephone:$data[3]n"; 


#断开连接 
$dbh->disconnect; 
加入收藏:  加入收藏夹  | 发送给好友:  发送给好友
责任编辑:admin
相关文章列表
请文明参与讨论,禁止漫骂攻击。  
网友评论