perl DBI:
安装过程很简单，下载解压：

gzip -d DBI-1.604.tar.gz
tar xvf DBI-1.604.tar
cd DBI-1.604：
perl Makefile.PL
make
make test
make install

DBD-mysql：
rpm -ivh MySQL-devel-community-5.1.52-1.rhel5.i386.rpm
gzip -d DBD-mysql-4.006.tar.gz
tar xvf DBD-mysql-4.006.tar

perl Makefile.PL
make
make test
make install

DBD-Oracle:

cd DBD-Oracle-1.21
perl Makefile.PL
make
make test
make install

[oracle@node1 ~]$ perl perora.pl
install_driver(Oracle) failed: Can't load '/usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/auto/DBD/Oracle/Oracle.so' for module DBD::Oracle: libclntsh.so.10.1: cannot open shared object file: No such file or directory at /usr/lib/perl5/5.8.8/i386-linux-thread-multi/DynaLoader.pm line 230.
at (eval 3) line 3
Compilation failed in require at (eval 3) line 3.
Perhaps a required shared library or dll isn't installed where expected
at perora.pl line 17

export LD_LIBRARY_PATH=$ORACLE_HOME/lib:$ORACLE_HOME/bin:/bin:/usr/bin:/usr/local/bin:/usr/X11R6/bin/:/lib

--需要用到一些动态库

#!/usr/bin/perl -w
#2011-01-12

#use strict;
use DBI;
#use DBI qw(:sql_types);

$ENV{ORACLE_HOME} = "/data/ora10g/product/10.2.0/db_1";
$ENV{ORACLE_SID} = "RACDBSTD";
$ENV{LD_LIBRARY_PATH} = "/data/ora10g/product/10.2.0/db_1/bin:/bin:/usr/bin:/usr/local/bin:/usr/X11R6/bin/:/lib";

$ENV{PATH} = "/data/ora10g/product/10.2.0/db_1/bin:/home/oracle/tools:/usr/sbin:/usr/lib/qt-3.3/bin:/usr/kerberos/bin:/usr/local/bin:/bin:/usr/bin:/home/orac
le/bin";

#connect to postgresql database
my $dbh =DBI->connect( 'dbi:Oracle:RACDBSTD',
                        'test',
                        'test',
                        {
                          RaiseError => 1,
                          AutoCommit => 0
                        }
                      ) || die "Database connection not made: $DBI::errstr";

my $sql1 = qq{select name from tt};
my $sth1 = $dbh->prepare($sql1) ;
$sth1->execute();
my $rwcount = 0;
while( my @result1 = $sth1->fetchrow_array )
{
print "$result1[0]\n";
}

$dbh->disconnect();

ITPub博客

perl DBI、DBD-mysql、DBD-Oracle安装

最新文章