Chinaunix首页 | 论坛 | 博客
  • 博客访问: 461491
  • 博文数量: 80
  • 博客积分: 2393
  • 博客等级: 大尉
  • 技术积分: 1434
  • 用 户 组: 普通用户
  • 注册时间: 2007-12-03 21:46
个人简介

己所不欲勿施于人!

文章分类

全部博文(80)

文章存档

2017年(1)

2016年(9)

2014年(1)

2013年(17)

2012年(5)

2011年(13)

2010年(9)

2009年(8)

2008年(17)

分类: Oracle

2012-09-03 11:49:39

1.安装DBI和DBD::Oracle 模块。

下载地址:http://search.cpan.org/

搜索DBI,DBD::Oracle

如果你的linux可以连接网络,执行命令:

#wget http://search.cpan.org/CPAN/authors/id/T/TI/TIMB/DBI-1.622.tar.gz

#wget http://search.cpan.org/CPAN/authors/id/P/PY/PYTHIAN/DBD-Oracle-1.50.tar.gz

下载到当前目录。

2.安装

这里主要都是源码安装。

解压到目录:DBI-1.622

#tar –zxvf  DBI-1.622.tar.gz

安装可以查看README文档。

一般步骤为

image 

DBD::Oracle安装与DBI相同。

3.

配置环境变量

# export ORACLE_HOME=/u01/oracle
# export ORACLE_USERID='scott/tiger@ora11gR2'
# export PATH=$ORACLE_HOME/bin:$PATH
# export LD_LIBRARY_PATH=$ORACLE_HOME/lib:$LD_LIBRARY_PATH

上面的方法只在当前登录环境有效,重新登陆后还需要重新配置。

这里建议的方法是使用Oracle 用户。或者将Oracle用户下.bash_profile文件拷贝到root目录下。

注意:LD_LIBRARY_PATH一定要修改,否则会报如下错误:

install_driver(Oracle) failed: Can't load '/usr/lib/perl5/site_perl/5.8.5/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.5/i386-linux-thread-multi/DynaLoader.pm line 230.

4.数据库连接简单示例:

点击(此处)折叠或打开

  1. #!/usr/bin/perl -w

  2. use strict;
  3. use warnings;
  4. use DBI;

  5. my $dbname="orcl";
  6. my $user = "omc";
  7. my $passwd = "omc";

  8. my $dbh=DBI->connect("dbi:Oracle:$dbname",$user,$passwd) or die "can't connect to database";
  9. my $sth = $dbh->prepare("select count(*) from fx_alarm");
  10. $sth->execute;

  11. my $count = $sth->fetchrow_array;
  12. $sth->finish();#Indicates to DBI that you are finished with the statement

  13. print $count."\n";
  14. $dbh->disconnect;
  15. print "hello\n";

http://www.kanbingcheng.com

阅读(8945) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~