表題の機能の使用に失敗してしまいます。 [以下、フォーム部分] [upload.cgi(データの送信先)] #!/usr/bin/perl use CGI qw(:standard); $data = param('data'); while (read($data, $buffer, 2048)) { $file .= $buffer; } open UP, "> ./test.txt"; print UP $file; close UP; print Files have been uploaded. $filename EOF このフォームを実行すると、HTML上には以下の出力が行われます。 --------------------------------------- Files have been uploaded. C:\Documents and Settings\ht-sato\デスクトップ\aaa.txt しかし、肝心のファイルはサーバ上に作成されていません。書き込み権が問題かとも思い、各ファイルやディレクトリのパーミッションも確認しましたが、書き込み可能となっていました。どうか、解決するためのアドバイスを頂けますでしょうか。

アップロードフォームの使用に失敗する。

解決済

質問者：goo0426
質問日時：2005/06/02 23:31
回答数：1件

表題の機能の使用に失敗してしまいます。
[以下、フォーム部分]
<form action="upload.cgi" method="post" enctype='multipart/form-data'>
<input type="file" name="data" /> <input type=submit />
</form>

[upload.cgi(データの送信先)]
#!/usr/bin/perl

use CGI qw(:standard);
$data = param('data');
while (read($data, $buffer, 2048)) { $file .= $buffer; }

open UP, "> ./test.txt";
print UP $file;
close UP;

print <<"EOF"
Content-type: text/html

<html>
<body>
Files have been uploaded.<br>
$filename<br>
</body>
</html>

EOF

このフォームを実行すると、HTML上には以下の出力が行われます。
---------------------------------------
Files have been uploaded.
C:\Documents and Settings\ht-sato\デスクトップ\aaa.txt

しかし、肝心のファイルはサーバ上に作成されていません。
書き込み権が問題かとも思い、各ファイルやディレクトリの
パーミッションも確認しましたが、書き込み可能となっていました。
どうか、解決するためのアドバイスを頂けますでしょうか。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： steel_gray
回答日時：2005/06/03 00:59

提示されているソースには問題なさそうです。

症状からすると出力ファイルのopenが失敗しているっぽいですのでもう一度ファイルを出力するディレクトリのパーミッションを確認してみてはどうでしょうか？

なお、ファイルのopenで失敗しているかは
open UP, "> ./test.txt";
↓
open UP, "> ./test.txt" or dir;
こんな感じでopenでエラーになっているか確認してみては。

openで問題が起きていなかったとすると・・・
これは本当に自身がないけど、作ったファイルにパーミッションを正しく設定しないとCGI実行後に無効にされるようなサーバがあったかも。
chmodでパーミッションを設定してみては？