Perl操作Mysql数据库

时间： 2021-07-31 作者：daque

一. 安置dbi模块办法1：从tools栏目中载入dbi.zip,载入完后用winzip解开到一个temp目次,公有三个文献： readme dbi.ppd dbi.tar.gz 办法2：在dos窗口下，temp目次中运转底下的dos吩咐： ppm install dbi.ppd 即使提醒失效吩咐,可在perl/bin目次下运转二. 安置dbd-mysql模块从软硬件载入中载入dbd-mysql.zip,安置本领同一. 三. 筹备数据库启用mysql,开始创造一个数据库mydata,而后创造一个表address mysql> create database mydata; query ok, 1 row affected (0.00 sec) mysql> use mydata; database changed mysql> create table address ( -> id int(5) not null, -> name varchar(40) not null, -> email varchar(50) not null, -> telephone int(12) null); query ok, 0 rows affected (0.05 sec) 输出些数据: mysql> insert into address values ( -> 1,’nighthawk’,’nighthawk@163.net’,92384092); query ok, 1 row affected (0.00 sec) 四. 底下用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;

Perl操作Mysql数据库

相关推荐

推荐下载

热门阅览

最新排行