画像ファイルをアップロードする方法

質問

掲示板を作りました。

画像ファイルやpdfファイルをアップロードできる
機能もつけたいと思います。

まずは保存方法なのですが、本で下のようにつく
ってみました。

書き込み部分↓

use CGI qw(:standard);

$file = param('file');

open OUT, "> $file";

while ( <$file> ) {
print OUT $_;
}

フォーム部分↓
<FORM method="POST" enctype = "multipart/form-data" action="write.cgi">
<TR>
<TD valign="top" width="116">■メッセージ（※）</TD>
<TD colspan="3" width="371"><TEXTAREA rows="10" cols="50" wrap="soft" name="message">$message</TEXTAREA></TD></TR>
<TR>
<TD valign="top" align="right" colspan="2"><INPUT TYPE="file" NAME = "file" size ="50"></TD>
</TR>
</TABLE>
<INPUT TYPE=HIDDEN NAME=time VALUE="$time">
<INPUT TYPE=HIDDEN NAME=mynum VALUE="$mynum">
<INPUT type="submit" value="　送 る　">
<INPUT type="reset" value="やり直す">

上記のようにやったら内部エラーが出てしまいました。

サーバーはぷららの
http://www.plala.or.jp/access/community/phps/ucgi_main.html

を利用しています。

use CGI;

がいけないのでしょうか？

回答No.1

pipipi523 · ベストアンサー

open OUT, "> $file";
while ( <$file> ) {
書き込み用のファイルから読み込み？等々いろいろありますが・・
とりあえずこちらが参考になると思います
http://www.ksknet.net/perl/post_26.html

お礼

回答ありがとうございました。

ちがう問題が浮上しまだ解決していないのですが、一旦締め切らせて頂きます。また質問したときにはよろしくお願いしますm(__)m