perl模块net mysql_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模块
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 install4.测试
[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
参考：