一. 安裝DBI模塊 　　步驟1： 　　從TOOLS欄目中下載DBI.zip,下載完后用winzip解開到一個temp目錄,共有三個文件： 　　Readme 　　DBI.ppd 　　DBI.tar.g

一. 安裝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,安裝方法同一. 三. 準備數(shù)據(jù)庫啟動mysql,首先創(chuàng)建一個數(shù)據(jù)庫mydata,然后創(chuàng)建一個表addressmysql> 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) 輸入些數(shù)據(jù): mysql> insert into address values ( -> 1,'Nighthawk','nighthawk@163.net',92384092); Query OK, 1 row affected (0.00 sec) 四. 下面用perl程序來插入若干記錄并做查詢. use DBI; #連接數(shù)據(jù)庫mydata my $dbh = DBI->connect('DBI:mysql:mydata') or die "無法連接數(shù)據(jù)庫: " . DBI->errstr; print "插入若干記錄\n"; my $sth = $dbh->prepare(q{ INSERT INTO address (id, name,email,telephone) VALUES (?, ?, ?, ?) }) }); print "輸入記錄,回車結(jié)束:"; while ($inputdata =<>) { chop $inputdata; last unless($inputdata); my ($id, $name,$email, $tel) = split( /,/, $inputdata); $sth->execute($id, $name, $email,$tel) } # $dbh->commit; print "下面根據(jù)輸入的名字打印出EMAIL地址和電話\n"; my $sth = $dbh->prepare('SELECT * FROM address WHERE name=?') or die $dbh->errstr; print "請輸入姓名,回車結(jié)束:"; 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;

總結(jié)

以上是生活随笔為你收集整理的cgi mysql数据库_Perl CGI中操作Mysql数据库的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。