Oracleデータベースに接続

質問

いつもお世話になります。
DBD-Oracleモジュールを使用して接続を試みているのですが、以下のエラーになります。

「プロシージャエントリポイントPL_memory_wrapがperl58.dllからみつかりません」
とダイアログが表示され、
install_driver(Oracle) failed: Can't load 'C:/Perl/site/lib/auto/DBD/Oracle/Oracle.dll'
for module DBD::Oracle: load_file:指定されたプロシージャが見つかりません。
at C:/Perl/lib/DynaLoader.pm line 230. at (eval 1) line 3
Compilation failed in require at (eval 1) line 3.
Perhaps a required shared library or dll isn't installed where expected
at test.pl line 16
とメッセージがでます。

スクリプトは以下です。
$hDB = DBI->connect("dbi:Oracle:host=$host;sid=$sid", $user, $passwd);
$hSt = $hDB->prepare("SELECT * FROM emp");
$nRes = $hSt->execute;
while(@aRes = $hSt->fetchrow) {
print join("\t", @aRes), "\n";
}
$hSt->finish;
$hDB->disconnect;

環境：
Windows2000Server
ActivePerl 5.8.6
Oracle8i
どなたかわかる方おりましたら、ご教示下さい。。宜しくお願い致します。

回答No.1

guci-ok · ベストアンサー

esoftmaticからインストールして下さい。バージョンが、5.8.4ですが、
同じ5.8系なら問題なさそうです。

install ftp://ftp.esoftmatic.com/outgoing/DBI/5.8.4/DBI.ppd
install ftp://ftp.esoftmatic.com/outgoing/DBI/5.8.4/DBD-Oracle.ppd

下のログは、今日実行したものです。Perlのインストールからやって
います。環境は、

windows2000server
ActivePerl5.8.7
oracle8i

ActiveState社のモジュールが上手くいかないのには、裏の事情があり、
2年くらい前にオラクル社から「物言い」がついたのです。
詳しい内容は私も知りません。ActiveState社のエンジニアに個人的に
メールで質問したのですが、教えてくれませんでした。
内容を掲載したURLがあれば知りたいのですが、あるかどうか？

ppm> install ftp://ftp.esoftmatic.com/outgoing/DBI/5.8.4/DBI.ppd
====================
Install 'Test-Simple' version 0.47 in ActivePerl 5.8.7.813.
====================
Downloaded 50698 bytes.
Extracting 11/11: blib/arch/auto/Test/Simple/.exists
Installing C:\Perl\html\site\lib\Test\Builder.html
Installing C:\Perl\html\site\lib\Test\More.html
Installing C:\Perl\html\site\lib\Test\Simple.html
Installing C:\Perl\html\site\lib\Test\Tutorial.html
Installing C:\Perl\site\lib\Test\Builder.pm
Installing C:\Perl\site\lib\Test\More.pm
Installing C:\Perl\site\lib\Test\Simple.pm
Installing C:\Perl\site\lib\Test\Tutorial.pod
Successfully installed Test-Simple version 0.47 in ActivePerl 5.8.7.813.
====================
Install 'DBI' version 1.45 in ActivePerl 5.8.7.813.
====================
Downloaded 398915 bytes.
Extracting 63/63: blib/script/dbiproxy.bat
Installing C:\Perl\site\lib\auto\DBI\dbd_xsh.h
Installing C:\Perl\site\lib\auto\DBI\DBI.bs
Installing C:\Perl\site\lib\auto\DBI\DBI.dll
Installing C:\Perl\site\lib\auto\DBI\DBI.exp
Installing C:\Perl\site\lib\auto\DBI\DBI.lib
Installing C:\Perl\site\lib\auto\DBI\DBI.pdb
Installing C:\Perl\site\lib\auto\DBI\dbipport.h
Installing C:\Perl\site\lib\auto\DBI\dbivport.h
Installing C:\Perl\site\lib\auto\DBI\DBIXS.h
Installing C:\Perl\site\lib\auto\DBI\dbi_sql.h
Installing C:\Perl\site\lib\auto\DBI\Driver.xst
Installing C:\Perl\site\lib\auto\DBI\Driver_xst.h
Files found in blib\arch: installing files in blib\lib into architecture depen
nt library tree
Installing C:\Perl\site\lib\DBI.pm
Installing C:\Perl\site\lib\Roadmap.pod
Installing C:\Perl\site\lib\Bundle\DBI.pm
Installing C:\Perl\site\lib\DBD\DBM.pm
Installing C:\Perl\site\lib\DBD\ExampleP.pm
Installing C:\Perl\site\lib\DBD\File.pm
Installing C:\Perl\site\lib\DBD\NullP.pm
Installing C:\Perl\site\lib\DBD\Proxy.pm
Installing C:\Perl\site\lib\DBD\Sponge.pm
Installing C:\Perl\site\lib\DBI\Changes.pm
Installing C:\Perl\site\lib\DBI\DBD.pm
Installing C:\Perl\site\lib\DBI\FAQ.pm
Installing C:\Perl\site\lib\DBI\Profile.pm
Installing C:\Perl\site\lib\DBI\ProfileData.pm
Installing C:\Perl\site\lib\DBI\ProfileDumper.pm
Installing C:\Perl\site\lib\DBI\ProxyServer.pm
Installing C:\Perl\site\lib\DBI\PurePerl.pm
Installing C:\Perl\site\lib\DBI\Roadmap.pm
Installing C:\Perl\site\lib\DBI\W32ODBC.pm
Installing C:\Perl\site\lib\DBI\Const\GetInfoReturn.pm
Installing C:\Perl\site\lib\DBI\Const\GetInfoType.pm
Installing C:\Perl\site\lib\DBI\Const\GetInfo\ANSI.pm
Installing C:\Perl\site\lib\DBI\Const\GetInfo\ODBC.pm
Installing C:\Perl\site\lib\DBI\DBD\Metadata.pm
Installing C:\Perl\site\lib\DBI\ProfileDumper\Apache.pm
Installing C:\Perl\site\lib\DBI\SQL\Nano.pm
Installing C:\Perl\site\lib\Win32\DBIODBC.pm
Installing C:\Perl\bin\dbiprof
Installing C:\Perl\bin\dbiprof.bat
Installing C:\Perl\bin\dbiproxy
Installing C:\Perl\bin\dbiproxy.bat
Successfully installed DBI version 1.45 in ActivePerl 5.8.7.813.
ppm>

ppm> install ftp://ftp.esoftmatic.com/outgoing/DBI/5.8.4/DBD-Oracle.ppd
====================
Install 'DBD-Oracle' version 1.16 in ActivePerl 5.8.7.813.
====================
Downloaded 207688 bytes.
Extracting 31/31: blib/script/ora_explain.bat
Installing C:\Perl\site\lib\auto\DBD\Oracle\dbdimp.h
Installing C:\Perl\site\lib\auto\DBD\Oracle\mk.pm
Installing C:\Perl\site\lib\auto\DBD\Oracle\ocitrace.h
Installing C:\Perl\site\lib\auto\DBD\Oracle\Oracle.bs
Installing C:\Perl\site\lib\auto\DBD\Oracle\Oracle.dll
Installing C:\Perl\site\lib\auto\DBD\Oracle\Oracle.exp
Installing C:\Perl\site\lib\auto\DBD\Oracle\Oracle.h
Installing C:\Perl\site\lib\auto\DBD\Oracle\Oracle.lib
Installing C:\Perl\site\lib\auto\DBD\Oracle\Oracle.pdb
Files found in blib\arch: installing files in blib\lib into architecture de
nt library tree
Installing C:\Perl\site\lib\oraperl.ph
Installing C:\Perl\site\lib\Oraperl.pm
Installing C:\Perl\site\lib\DBD\mkta.pl
Installing C:\Perl\site\lib\DBD\Oracle.pm
Installing C:\Perl\site\lib\DBD\Oracle\GetInfo.pm
Installing C:\Perl\bin\ora_explain
Installing C:\Perl\bin\ora_explain.bat
Successfully installed DBD-Oracle version 1.16 in ActivePerl 5.8.7.813.
ppm>

C:\>perl -MDBI -le "print DBI->VERSION"
1.45

C:\>perl -MDBD::Oracle -le "print DBD::Oracle->VERSION"
1.16

補足

guci-ok様。
ご回答ありがとうございます。
誠に失礼な話なのですが、当問題は既に解決しております。
ver5.8.xで無理という結論に達したため、v.5.6.xにダウングレード
して対応いたしました。

こちらで質問をしたときは、まだ何がいけないのか皆目見当もつかない状態
で、どうやらモジュールがいけないんじゃないか？と考えるようになり
モジュールに絞り込んで再度質問したのです。
http://okweb.jp/kotaeru.php3?q=1573758

その際、こちらを詳細事項（参照）としたため消すに消せなかったという経緯です。

>ActiveState社のモジュールが上手くいかないのには、裏の事情があり、
>2年くらい前にオラクル社から「物言い」がついたのです。
私も物言いがついた事まで確認できましたが、その詳細に付いては
分かりませんでした。別件質問でも少し触れておりますが。

ここまでご親切に書き込み下さったのにこちらで確かめないわけには行きません。
とはいえ会社に戻らなければテストできませんので、大分後延ばしになって
しまいますが、お礼で結果を述べたいと思います！
ありがとうございました。

回答No.2

guci-ok

「ダウングレードして対応した」のは了解していました。
しかし、このままでは、ActivePerlの最新ではオラクルに接続できない、
と思う人が他にも出てきてしまいそうでしたので。

私はPerlをこよなく愛するものです。
最近のPerlは、IDE(開発環境)の遅れや、Perl6の開発遅れなど、
あまり良い状況ではありません。しかし私はやっぱりPerl好き。
少しでもPerlの役に立ちたいのです。

もっと早く回答すればよかったですね。
このサイトの名前は知っていたのですが、参加していませんでした。
会社からはこのサイトにアクセスできない関係もあります。
会社のアクセス基準で、chat形式のサイトは接続できないのです。
（会社のproxyを通過できない）
これからは時間を作って参加したいと思っています。

お礼

やっと本社に戻ってきました。。
只今ご指南頂いた方法で接続できる事を確認致しました！
頃を伺って本番環境もバージョンアップしてゆこうかと思います。
有難う御座いました。又よろしくお願い致します。