使用DBI連接Oracle數(shù)據(jù)庫(kù)的問(wèn)題

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";
   

復(fù)制代碼

上面是我的代碼，使用的是Oracle客戶(hù)端自帶的perl去連接Oracle數(shù)據(jù)庫(kù)。不知道為什么這個(gè)腳本沒(méi)法執(zhí)行，一直是停在那里的也沒(méi)有任何錯(cuò)誤提示，連第一個(gè)ok都沒(méi)用打印出來(lái)，如果是把最后一行注釋掉就可以成功執(zhí)行前面的代碼了，不知道有人遇見(jiàn)過(guò)這種情況嗎？

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

復(fù)制代碼

Pro_sky

不是腳本沒(méi)執(zhí)行吧，是連接的時(shí)候在等待，可能超時(shí)時(shí)間比較長(zhǎng)

ok沒(méi)打出來(lái)應(yīng)該是 被緩存了，你可以設(shè)置 "$| = 1" 或者 print "ok\n"

lth0721

回復(fù) 2# Pro_sky


    多謝你的回復(fù)啊，確實(shí)是執(zhí)行了 print的，怎么加個(gè)\n 就不會(huì)被緩存了嗎？現(xiàn)在的問(wèn)題是根本沒(méi)有發(fā)包出去啊。。不知道可能是什么原因引起的呢？

yybmsrs

print "@ary";

打印出了什么？

lth0721

回復(fù) 4# yybmsrs


    ExampleP Oracle Proxy Sponge


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

Pro_sky

回復(fù) 3# lth0721


    perl跟C應(yīng)該一樣，標(biāo)準(zhǔn)輸出是按行緩存的

lth0721

我現(xiàn)在把這個(gè)腳本換到另一臺(tái)機(jī)器執(zhí)行，結(jié)果提示
./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

回復(fù) 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

回復(fù) 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.
   

復(fù)制代碼

不曉得是什么問(wèn)題啊。。難道是需要設(shè)置什么環(huán)境變量嗎？

Ray001

Can't locate lib.pm
這個(gè)是pm沒(méi)裝全。