NT+ActivePerlで同じディレクトリ内のCSVファイルを指定するには?

[上に] [前に] [次に]
Hide [E-Mail] 1999/07/23(金) 00:18:35
NT4.0+SP4+Active Perl Build518の環境です。
以下のスクリプトで同ディレクトリ内にあるCSVファイルをオープンできないのですが何が原因なのでしょうか?
$file = "db.csv";
if (!open(IN,"$file")) { &error('Read Error','Please wait for recovery.'); }
@BASE = <IN>;
close(IN);
このスクリプトでは「db.csv」を同じディレクトリにではなく、ドキュメントルートに読みに行こうとします。ドキュメントルートにCSVファイルを置くと動作するからです。
どうすれば、同じディレクトリ内にあるCSVファイルを指定できるのでしょうか?
chdir("/www/cgi-bin");を前の方に置いてみましたがだめです。
また、Apacheで試すと同じディレクトリ内にスクリプトとCSVファイルを置いてきちんと動作するので、CSVファイルの問題ではなさそうです。
NT上Perlの相対パスの書き方に問題があるような気がするのですが、ご指導頂けましたら幸いです。

Aurai 1999/07/23(金) 01:01:39
chdir('\www\cgi-bin');
でどうでしょう?

ふじ 1999/07/23(金) 01:11:49
ドライブ名も指定してみるとか。
chdir("C:/www/cgi-bin");

#ついでに、chdirが成功しているかどうもトラップしてみると
#何か情報がえられるかも・・・

Hide [E-Mail] 1999/07/23(金) 01:32:02
[[解決]]
解決しました。
chdir('d:/shell-cgi');
が、正解でした。絶対パスをきちんと確認するのがミソでしたね。
ちなみにサーバはNetscape Enterprise Serverでした。
みなさん、ありがとうございました。

[上に] [前に] [次に]