linux centos环境下,perl使用DBD::Oracle遇到报错Can't locate DBD/Oracle.pm in @INC 的解决办法
前言
接手前辈的项目,没有接触、安装、使用过perl和DBD::Oracle,也没有相关的文档记录,茫茫然不知所措~~。一开始发现这个问题,就想着迅速解决,就直接在google上搜报错信息,搜索的过程中发现 如果不搞清楚前因后果我连解决方案都‘看不见’‘看不懂’。 所以还是要补充这方面的知识,再思考解决方案。以下内容就是我一边学习一边解决问题的过程,如果不足,请各位大佬指出。报错
install_driver(Oracle) failed: Can't locate DBD/Oracle.pm in @INC (@INC contains:/home/as_user/PMS/Data-Update /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 .) at (eval 12) line 3. Perhaps the DBD::Oracle perl module hasn't been fully installed, or perhaps the capitalisation of 'Oracle' isn't right. Available drivers: DBM, ExampleP, File, Gofer, Pg, Proxy, SQLite, Sponge, mysql. at /home/as_user/PMS/Data-Update/SolexaDown.pl line 19
DBI相关知识
参考:菜鸟教程DBI相关
在perl中使用DBI的方法
1 #!/usr/bin/perl 2 use DBI; #perl引入DBI模块 3 my $dbh = DBI->connect("dbi:Oracle:host=$host;sid=$sid", $user, $passwd); #DBI根据输入的驱动程序对象的句柄调用对应的数据模块,返回一个数据库对象的句柄
这个时候我的脑海里出现了两个问题
1.代码中使用use,那use怎么知道DBI所在的目录,在哪里设置了,和@INC有什么关系???
2.DBI如何激活DBD::Oracle,寻找的路径是什么,在哪里,怎么设置,和@INC有什么关系???
上述问题可能会在配置DBI,DBD::Oracle中找到答案,所以我就先查询学习了配置过程
安装DBI
perl DBI官网: https://dbi.perl.org/ ,在官网中可以跳转到下载路径 https://metacpan.org/release/DBI
配置方法DBD::Oracle
要点
1. DBD::Oracle模块不是Oracle官方开发的,由Pythian Group公司开发,网址为https://metacpan.org/pod/DBD::Oracle,下载该模块的地址https://metacpan.org/release/MJEVANS/DBD-Oracle-1.75_2 。当然可以去CPAN(Comprehensive Perl Archive Network,Perl模块聚集库https://www.cpan.org/)下载
2. 先装DBI,再装DBD模块,在安装DBD::Oracle中,如果装在没有Oracle Database的主机上,则需要安装Oracle Instant Client来进行远程数据库连接
3.在安装教程中,指出要配置Orcale_HOME目录,我们可以在根目录下输入vi .bashrc命令,即可看到Oracle_HOME的配置信息
在安装DBD::Oracle过程中,设置Oracle_HOME变量这一步似乎与我的问题2有关(但没有清晰的关联),但和问题1一点关系都没有,这时候就怀疑perl中有设置相应的参数,仔细查看执行脚本的开头,发现有使用到FindBin,想着不了解那就去学习一下。幸运的是,在学习的过程中解决了我的报错。
perl的FindBin模块(一定要看参考的网址,很有帮助)
要点1:
假定脚本路径在/home/as_user/PMS/testt.pl,在目录/home/as_user/PMS下运行该脚本
即$bin表示路径/home/as_user/PMS,$Script表示testt.pl
要点2:
use 是在默认的@INC里面去寻找对应的模块,一旦模块不在@INC中,那么use是不能引入的。同时use引入的名称不需要后缀名,默认同时也只能找.PM文件
要点3:
参考:查看Perl模块安装路径
@INC是perl的一个特殊列表标量,存储着当前版本的Perl模块的路径。编译脚本时,Perl会根据@INC存储的路径去查询用户所调用的模块,可以用命令‘perl -V’来查看具体模块的目录,也同样可以用BEGIN代码块对@INC进行操作。其中.表示脚本的当前目录。
总结
在学习了‘配置DBD::Oracle方法’ 以及‘perl的FindBin模块’的相关知识后,再回到报错,报错说在@INC路径下Can't locate DBD/Oracle.pm,既然找不到,那么我们要在执行脚本中设置DBD/Oracle.pm的路径。设置的方法是使用 FindBin模块。
举个例子:执行脚本SolexaDown.pl的目录为 /home/as_user/PMS/Data-Update,在这个目录下的/lib目录下存在 DBD/Oracle.pm,即存在路径 /home/as_user/PMS/Data-Update/DBD/Oracle.pm。那么我在olexaDown.pl脚本的开头,应该写上
use FindBin '$Bin'; use lib "$Bin/lib";
这样一来,perl执行SolexaDown.pl脚本时就能找到DBD/Oracle.pm了。报错解决了~~
关于问题
use查找引用的模块 和 DBI激活对应的DBD 都是通过 @INC下的路径去查找的,之所以说DBI激活对应的DBD也是通过@INC的依据:我发现DBI有个available_drivers方法,perl DBI手册上有写到 "该方法通过@INC中的目录搜索所有的DBD::*模块返回一个所有可用驱动器的列表。默认情况下,如果某些驱动器被先前目录中其他相同名字的驱动器覆盖,将会返回一个警告,可以通过设置$quiet为true屏蔽",这启发了我,再根据DBI的源码,我发现了实际的代码 grep { -d "$_/auto/DBD/$driver" } @INC。我懒的仔细看源码,$_具体指哪些就没深究,有兴趣的可以仔细研究一下,DBI源码是用perl写的。设置@INC的方法在链接 查看Perl模块安装路径中可以找到,我就不列举了。