《MYSQL數據庫linux下perl操作mysql數據庫(需要安裝DBI)》要點：
本文介紹了MYSQL數據庫linux下perl操作mysql數據庫(需要安裝DBI)，希望對您有用。如果有疑問，可以聯系我們。
DBI安裝：DBI詳細信息參考：http://dbi.perl.org/
1.下載DBI包：
wget http://search.cpan.org/CPAN/authors/id/T/TI/TIMB/DBI-1.620.tar.gz
2 解壓
tar xzf DBI-1.620.tar.gz
3 進入解壓包內,
perl Makefile.PL
4 make test
5 make
6 make install (如果不是root用戶,要sudo一下)
DBD安裝：
1.下載DBD
wget http://search.cpan.org/CPAN/authors/id/C/CA/CAPTTOFU/DBD-mysql-4.021.tar.gz
2. 3. 同上
在進行第三步是可能會出現mysql_config找不到的情況,應該是沒有安裝開發工具包
sudo apt-get install libmysqld-dev
sudo apt-get install libmysqlclient-dev
來安裝這兩個包.
其余同上.
完成安裝后就可以利用perl腳本進行mysql數據的操作了.
編寫perl腳本操作數據庫
代碼如下:
#! /usr/bin/perl
use DBI;
my $driver="DBI:mysql";
my $database="perl_test";
my $user="root";
my $host="localhost";
my $passwd="root";
my $rules="alert_rules";
my $dbh = DBI->connect("$driver:database=$database;host=$host;user=$user;password=$passwd")
or die "Can't connect: " . DBI->errstr;
my $sth=$dbh->prepare("select app_name,receivers from $rules ");
$sth->execute() or die "Can't prepare sql statement". $sth->errstr;
my $sth=$dbh->prepare("select app_name,receivers from $rules ");
$sth->execute() or die "Can't prepare sql statement". $sth->errstr;
# 打印獲取的數據
while(@recs=$sth->fetchrow_array){
print $recs[0].":".$recs[1]."\n";
}
$sth->finish();
$dbh->disconnect();
歡迎參與《MYSQL數據庫linux下perl操作mysql數據庫(需要安裝DBI)》討論，分享您的想法，維易PHP學院為您提供專業教程。
轉載請注明本頁網址：
http://www.snjht.com/jiaocheng/13938.html
