当前位置: 首页 > 工具软件 > DBD-mysql > 使用案例 >

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

公良渝
2023-12-01

首先,来一段代码来自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

参考:

 类似资料: