linux下perl操作MySQL数据库(需要安装DBI)

这篇文章主要为大家详细介绍了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(); 

本文来自：http://www.q1010.com/177/10251-0.html

注：关于linux下perl操作MySQL数据库(需要安装DBI)的内容就先介绍到这里，更多相关文章的可以留意四海网的其他信息。

关键词：MYSQL