bitscn.com
假定 以安装好perl语言和mysql数据库。
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();
bitscn.com