首先，來一段程式碼來自NinGoo的檢測系統中已經安裝的Perl模組：

[[email protected] tmp]# cat check_module.pl 
#!/usr/bin/perl

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

[[email protected] tmp]# ./check_module.pl 
Perl

一、安裝DBI模組

2.將下載模組上傳到相應伺服器上：/perl/Module/

3.解壓安裝 

tar -zxvf DBI-1.633.tar.gz
cd DBI-1.633
perl Makefile.PL [PREFIX="/perl/Module/DBI"] <span style="color:#ff6666;">#可以安裝自定義目錄</span>
make 
make test
make install

4.簡單測試

<pre name="code" class="html"><pre name="code" class="html">[[email protected] tmp]# cat testDBI 
#!/usr/bin/perl -w

use strict;
use DBI;
print "Text DBI success!\n";
[
 
[email protected]5sql1 tmp]# ./testDBI 
Text DBI success!

[[email protected] tmp]# ./check_module.pl 
DBI
Perl

說明：使用自定義目錄，在呼叫DBI時將use DBI換成use lib "/perl/Module/DBI/lib64/perl5/"; require DBI;

二、安裝DBD::Mysql模組

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

<pre name="code" class="html">[[email protected] 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();

[[email protected] 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

[[email protected] tmp]# find / -name libmysqlclient.so.18
/usr/local/mysql/lib/libmysqlclient.so.18
/usr/local/mysql-5.6.4-m7/libmysql/libmysqlclient.so.18

修復

[[email protected] tmp]# ldd /usr/local/lib64/perl5/auto/DBD/mysql/mysql.so
        linux-vdso.so.1 =>  (0x00007ffff9198000)
        <span style="color:#ff6666;">libmysqlclient.so.18 => not found</span>
        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)

[[email protected] tmp]# cp /usr/local/mysql/lib/libmysqlclient.so.18 /usr/lib64/

[[email protected] 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)

最後測試成功：

[[email protected] tmp]# ./check_mysql.pl 
2015-07-01 12:13:41

[[email protected] tmp]# ./check_module.pl 
DBD::mysql
DBI
Perl

參考：