使用DBI连接Oracle数据库的问题

lth0721

1. [oracle@localhost perl]$ cat test.pl
   
2. #!/u01/app/oracle/product/10.2.0/db_1/perl/bin/perl -w
   
3. 
   
4. use strict;
   
5. use DBI;
   
6. print "ok";
   
7. my @ary = DBI->available_drivers;
   
8. print "@ary";
   
9. my $dbh = DBI->connect("dbi:Oracle:G_192.168.1.171","username","passwd") || die "Couldn't connect to data";
   

复制代码

上面是我的代码，使用的是Oracle客户端自带的perl去连接Oracle数据库。不知道为什么这个脚本没法执行，一直是停在那里的也没有任何错误提示，连第一个ok都没用打印出来，如果是把最后一行注释掉就可以成功执行前面的代码了，不知道有人遇见过这种情况吗？

1. [oracle@localhost perl]$ ./test.pl
   
2. 
   

复制代码

Pro_sky

不是脚本没执行吧，是连接的时候在等待，可能超时时间比较长

ok没打出来应该是 被缓存了，你可以设置 "$| = 1" 或者 print "ok\n"

lth0721

回复 2# Pro_sky


    多谢你的回复啊，确实是执行了 print的，怎么加个\n 就不会被缓存了吗？现在的问题是根本没有发包出去啊。。不知道可能是什么原因引起的呢？

yybmsrs

print "@ary";

打印出了什么？

lth0721

回复 4# yybmsrs


    ExampleP Oracle Proxy Sponge


以前都是可以连接的不知道为什么突然就不能连接了

Pro_sky

回复 3# lth0721


    perl跟C应该一样，标准输出是按行缓存的

lth0721

我现在把这个脚本换到另一台机器执行，结果提示
./test.pl
Can't locate strict.pm in @INC (@INC contains: /ade/smayer_perl58_main_linux/perl58/bin/Linux/Opt/lib/5.8.3/i686-linux-thread-multi /ade/smayer_perl58_main_linux/perl58/bin/Linux/Opt/lib/5.8.3 /ade/smayer_perl58_main_linux/perl58/bin/Linux/Opt/lib/site_perl/5.8.3/i686-linux-thread-multi /ade/smayer_perl58_main_linux/perl58/bin/Linux/Opt/lib/site_perl/5.8.3 /ade/smayer_perl58_main_linux/perl58/bin/Linux/Opt/lib/site_perl .) at ./test.pl line 2.
BEGIN failed--compilation aborted at ./test.pl line 2.

但是我是有strict的啊
[oracle@63-216-146-37 perl]$ locate strict.pm
/u01/app/oracle/product/10.2.0/db_1/perl/lib/5.8.3/strict.pm

Pro_sky

回复 7# lth0721

push @INC, "/u01/app/oracle/product/10.2.0/db_1/perl/lib/5.8.3/";

或者

use lib '/u01/app/oracle/product/10.2.0/db_1/perl/lib/5.8.3/';

lth0721

回复 8# Pro_sky

1. [oracle@63-216-146-37 perl]$ ./test.pl
   
2. Can't locate lib.pm in @INC (@INC contains: /ade/smayer_perl58_main_linux/perl58/bin/Linux/Opt/lib/5.8.3/i686-linux-thread-multi /ade/smayer_perl58_main_linux/perl58/bin/Linux/Opt/lib/5.8.3 /ade/smayer_perl58_main_linux/perl58/bin/Linux/Opt/lib/site_perl/5.8.3/i686-linux-thread-multi /ade/smayer_perl58_main_linux/perl58/bin/Linux/Opt/lib/site_perl/5.8.3 /ade/smayer_perl58_main_linux/perl58/bin/Linux/Opt/lib/site_perl .) at ./test.pl line 2.
   
3. BEGIN failed--compilation aborted at ./test.pl line 2.
   

复制代码

不晓得是什么问题啊。。难道是需要设置什么环境变量吗？

Ray001

Can't locate lib.pm
这个是pm没装全。