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文档。
一般步骤为
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.数据库连接简单示例:
点击(此处)折叠或打开
#!/usr/bin/perl -w use strict; use warnings; use DBI; my $dbname="orcl"; my $user = "omc"; my $passwd = "omc"; my $dbh=DBI->connect("dbi:Oracle:$dbname",$user,$passwd) or dIE "can't connect to database"; my $sth = $dbh->prepare("select count(*) from fx_alarm"); $sth->execute; my $count = $sth->fetchrow_array; $sth->finish();#Indicates to DBI that you are finished with the statement print $count."\n"; $dbh->disconnect; print "hello\n"; 总结以上是内存溢出为你收集整理的Perl 连接Oracle 数据库_libydwei2007-ChinaUnix博客全部内容,希望文章能够帮你解决Perl 连接Oracle 数据库_libydwei2007-ChinaUnix博客所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)