perl DBI模块和DBD-mysql模块安装

首先，来一段代码来自NinGoo的检测系统中已经安装的Perl模块：

[root@rh65sql1 tmp]# cat check_module.pl 
#!/usr/bin/perl

use ExtUtils::Installed;
my $inst = ExtUtils::Installed->new();
print join "\n",$inst->modules();
print"\n";

安装前的结果：

[root@rh65sql1 tmp]# ./check_module.pl 
Perl

一、安装DBI模块

1.下载模块http://download.csdn.net/detail/u010587433/8857567（或者http://search.cpan.org/~timb/DBI-1.633/）

2.将下载模块上传到相应服务器上：/perl/Module/

3.解压安装 

tar -zxvf DBI-1.633.tar.gz
cd DBI-1.633
perl Makefile.PL [PREFIX="/perl/Module/DBI"] #可以安装自定义目录
make 
make test
make install

4.简单测试

[root@rh65sql1 tmp]# cat testDBI 
#!/usr/bin/perl -w

use strict;
use DBI;
print "Text DBI success!\n";
[root@rh65sql1 tmp]# ./testDBI 
Text DBI success!
 
  
 
  
 
  
 
  
 
  
 
  
[root@rh65sql1 tmp]# ./check_module.pl 
DBI
Perl
 
  
 
  
说明：使用自定义目录，在调用DBI时将use DBI换成use lib "/perl/Module/DBI/lib64/perl5/"; require DBI;
 
   
  
二、安装DBD::Mysql模块
 1.下载模块： http://download.csdn.net/detail/u010587433/8857609（或者 http://search.cpan.org/~capttofu/DBD-mysql-4.018/） 
  
2.上传服务器
 
  
3.安装同上
 
  
 
  
tar -zxvf DBD-mysql-4.032_01.tar.gz
cd DBD-mysql-4.032_01
perl Makefile.PL [PREFIX="/perl/Module/Mysql"] #可以安装自定义目录
make 
make test
make install
4.测试 
  
 
  
 
  
[root@rh65sql1 tmp]# cat check_mysql.pl 
#!/usr/bin/perl

use strict;
use DBI;
use DBD::mysql;
my $user = "root";
my $passwd = "123456";
my $host = "192.168.7.221";
my $db = "test";
my $data_source = "DBI:mysql:database=$db;host=$host";
my $dbh = DBI->connect($data_source,$user,$passwd,{'RaiseError'=>1}) ;
my $sql = qq{select now()};
my $sth = $dbh->prepare($sql);
$sth->execute();
my $set;
$sth->bind_columns(undef,\$set);
while($sth->fetch()){
        print $set."\n";
}
$sth->finish();
$dbh->disconnect();
 
  
 
  
 使用的root用户安装在默认路径下/usr/local/lib64/per5。安装完mysql模块后，测试报错： 
  
 
  
 
  
[root@rh65sql1 tmp]# ./check_modu_mysql.pl 
Can't load '/usr/local/lib64/perl5/auto/DBD/mysql/mysql.so' for module DBD::mysql: libmysqlclient.so.18: cannot open shared object file: No such file or directory at /usr/lib64/perl5/DynaLoader.pm line 200.
 
  
 
  
查找是否存在此Lib
 
  
[root@rh65sql1 tmp]# find / -name libmysqlclient.so.18
/usr/local/mysql/lib/libmysqlclient.so.18
/usr/local/mysql-5.6.4-m7/libmysql/libmysqlclient.so.18
 
  
修复
 
  
 
  
[root@rh65sql1 tmp]# ldd /usr/local/lib64/perl5/auto/DBD/mysql/mysql.so
        linux-vdso.so.1 =>  (0x00007ffff9198000)
        libmysqlclient.so.18 => not found
        libpthread.so.0 => /lib64/libpthread.so.0 (0x00007f0e71568000)
        libz.so.1 => /lib64/libz.so.1 (0x00007f0e71352000)
        libm.so.6 => /lib64/libm.so.6 (0x00007f0e710ce000)
        librt.so.1 => /lib64/librt.so.1 (0x00007f0e70ec5000)
        libdl.so.2 => /lib64/libdl.so.2 (0x00007f0e70cc1000)
        libc.so.6 => /lib64/libc.so.6 (0x00007f0e7092d000)
        /lib64/ld-linux-x86-64.so.2 (0x0000003ae0400000)
 
  
 发现在mysql的安装目录文件，把文件拷贝过去（注意目录） 
  
 
  
[root@rh65sql1 tmp]# cp /usr/local/mysql/lib/libmysqlclient.so.18 /usr/lib64/
之后修复一下： 
  
 
  
 
  
[root@rh65sql1 tmp]# ldd /usr/local/lib64/perl5/auto/DBD/mysql/mysql.so
        linux-vdso.so.1 =>  (0x00007fff8dbff000)
        libmysqlclient.so.18 => /usr/lib64/libmysqlclient.so.18 (0x00007fcd63100000)
        libpthread.so.0 => /lib64/libpthread.so.0 (0x00007fcd62ee3000)
        libz.so.1 => /lib64/libz.so.1 (0x00007fcd62ccc000)
        libm.so.6 => /lib64/libm.so.6 (0x00007fcd62a48000)
        librt.so.1 => /lib64/librt.so.1 (0x00007fcd62840000)
        libdl.so.2 => /lib64/libdl.so.2 (0x00007fcd6263b000)
        libc.so.6 => /lib64/libc.so.6 (0x00007fcd622a7000)
        libstdc++.so.6 => /usr/lib64/libstdc++.so.6 (0x00007fcd61fa1000)
        libgcc_s.so.1 => /lib64/libgcc_s.so.1 (0x00007fcd61d8a000)
        /lib64/ld-linux-x86-64.so.2 (0x0000003ae0400000)
 
  
 
  
最后测试成功：
 
  
 
  
[root@rh65sql1 tmp]# ./check_mysql.pl 
2015-07-01 12:13:41
查看已安装的模块 
  
 
  
 
  
[root@rh65sql1 tmp]# ./check_module.pl 
DBD::mysql
DBI
Perl
 
  
 
  
 
  
参考：
 
  
http://yonghui702.blog.163.com/blog/static/81718342011629111724666/
 
  
http://blog.sina.com.cn/s/blog_9d0445d50101czsr.html