一、安装DBI

DBI(Database Interface) 是 perl 连接数据库的接口。其是 perl 连接数据库的最优

秀方法，他支持包括 Orcal,Sybase,mysql,db2 等绝大多数的数据库，下面将简要

介绍其安装方法。

1.1 解压

tar -zxvf DBI-1.616_901.tar.gz

 

1.2 安装依赖

yum install perl-ExtUtils-CBuilder perl-ExtUtils-MakeMaker

yum install perl-Test-Simple-0.98-243.el7.noarch.rpm

yum install gcc

 

1.3 进入目录

cd DBI-1.616/

 

1.4 编译

perl MakefIle.PL

make

 

1.5 执行测试

make test

 

1.6 安装

make install

二、安装DBD:oracle

DBI 只是个抽象层，要实现支持不同的数据库，则需要在 DBI 之下，编写针对不同数据库的驱动，对 MySql 来说，有 DBD::Mysql, 而对 Oracle 来说，则是 DBD::Oracle 。其中的 DBD 这是 DataBase Driver 之简写

 

2.1 解压

tar -zxvf DBD-Oracle-1.36.tar.gz

 

2.2 环境变量设置（按照真实环境修改）

export ORACLE_HOME=/oracle/app/product/19.3.0/db_1

export LD_LIBRARY_PATH=$ORACLE_HOME/lib:/usr/lib

export TNS_ADMIN=$ORACLE_HOME/network/admin

export ORACLE_USERID=def/oracle

export ORACLE_SID=orcl

export ORACLE_BASE=/oracle/app

 

2.3 进去目录

cd DBD-1.36/

 

2.4 编译

perl MakefIle.PL

make

 

2.5 执行测试

make test

 

2.6 安装

make install

 

三、测试

3.1 创建测试文件

vi check.pl

 

内容如下：

#!/usr/bin/perl

use strict;

use ExtUtils::Installed;

 

my $inst=ExtUtils::Installed->new();

 

my @modules = $inst->modules();

 

foreach(@modules){

        my $ver = $inst->version($_) || "???";

        printf("%-12s -- %s\n",$_,$ver);

}

 

3.2 给予权限

chmod +x check.pl

 

3.3 进行检测

perl check.pl

 

结果如下：

DBD::Oracle  -- 1.70

DBI          -- 1.642

Perl         -- 5.16.3