perl 安装 DBI及 DBD-mysql

1、 DBI下载地址：
https://cpan.metacpan.org/authors/id/T/TI/TIMB/DBI-1.636.tar.gz

1.1 解压，编译：

tar -zxvf DBI-1.636.tar.gz
cd DBI-1.636
perl Makefile.PL
make
make test
make install

 

2. DBD-mysql下载地址
http://search.cpan.org/CPAN/authors/id/C/CA/CAPTTOFU/DBD-mysql-4.038.tar.gz

2.1 解压，编译：

tar -zxvf DBD-mysql-4.038.tar.gz

tar -zxvf DBD-mysql-4.006.tar.gz

cd DBD-mysql-4.006
perl Makefile.PL --mysql_config=/usr/bin/mysql_config
make
make test
make install

#测试是否成功：
#!/usr/bin/perl

use DBI;
$user="root";
$passwd='xxxxxx';
$dbh="";
$dbh = DBI->connect("dbi:mysql:database=xxxx;host=xxxx;port=3309",$user,$passwd) or die "can't connect todatabase ". DBI-errstr;
$sth=$dbh->prepare("select * from t_test_table limit 2");
$sth->execute;
while (@recs=$sth->fetchrow_array) {
        print $recs[0].":".$recs[1].":".$recs[2]."\n";
}
$dbh->disconnect;