ＣＧＩ初心者です。小生の環境は、WinXP-Pro、Microsoft-IIS/5.1、ActivePerl V.623です。
以下のスクリプトでテスト中ですが、テキストファイルの上書きモードでオープンを試みるとエラー（Permission denied）
になります。ファイルのプロパティをみても読み取り専用には、なっていません。
但し、フォルダの読み取り専用チェックが四角く緑色になっています（この解除はできません）。しかも、同じフォルダにJPGファイルは、上書きオープン可となります。
上書きモードでのオープンは、どのようにしたら可能になるかご教示ください。
よろしく、お願いします。
スクリプト＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
#!/user/local/bin/perl
$os ="WinXP";
$sr ="Microsoft-IIS/5.1";
$vr ="ActivePerl V.623";
# レスポンスヘッダの出力
print "Content-type: text/html", "\n\n";
print "<HTML>\n";
print "<BODY>\n";
print "<BR><BIG>ファイルオープンテスト！</BIG>＝$os／$sr／$vr<BR><BR>\n";
&open_test;
print "</BODY>\n";
print "</HTML>\n";
#============================================================
sub open_test{
$txt_file="./tbl_Na-00.txt";
$img_file="./p00189.jpg";
if (!open(TBL,"$txt_file")) { print "txt読込みモード＝ＯＰＥＮ失敗／エラー＝$!<BR>\n";}
else {print "txt読込みモード＝ＯＰＥＮ成功<BR>\n";}
close(TBL);
if (!open(TBL,"> $txt_file")) { print "txt上書きモード＝ＯＰＥＮ失敗エラー＝$!<BR>\n";}
else {print "txt上書きモード＝ＯＰＥＮ成功<BR>\n";}
close(TBL);
if (!open(TBL,"> imgt_file")) { print "img上書きモード＝ＯＰＥＮ失敗エラー＝$!<BR>\n";}
else {print "img上書きモード＝ＯＰＥＮ成功<BR>\n";}
close(TBL);
}
実行結果＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
ファイルオープンテスト！＝WinXP／Microsoft-IIS/5.1／ActivePerl V.623
txt読込みモード＝ＯＰＥＮ成功
txt上書きモード＝ＯＰＥＮ失敗エラー＝Permission denied
img上書きモード＝ＯＰＥＮ成功
