pl にてファイルをアップロード設定したいのですが...

質問

参考書を手に下記指示をしていますが...動きません；

■アップロード指示部分
<form action="$uppdffile" method="post" enctype="multipart/form-data">
<input type="file" name="upfile" size="40"><br>
<input type="submit" value="アップロード"> <input type="reset" value="クリア">
</form>
■アップロード処理部分
my $upfilename = 'enq.pdf';
my $upfile = $buf{'upfile'};
my $upldir = '/usr/local/apache/htdocs/enq';
my $upshori = "$upldir/$upfilename";
sub uppdffile {
open(OUT,"> $upshori");
binmode(OUT);
binmode(STDOUT);
print OUT $upfile;
close(OUT);
chmod(0666, $imgfile);
}

動いてくれません...
問題箇所がお分かりの方がいましたらお教えください。
何卒よろしくお願いいたします。

回答No.1

zxcv0000 · ベストアンサー

print OUT <$upfile>;

で動かなかったら、全面的に見直してください。

お礼

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

やはり動きませんでした。
全面的に見直してみます。

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

回答No.2

zxcv0000

えとですね、 $buf{'upfile'} にはどうやって設定していますか？

CGI.pm の param() メソッドから設定してるなら、 <$buf{'upfile'}> で入力できると思うんですが。

アップロードファイルの入力は、ライブラリの世話にならずに自分でやろうとすると、mime multipart の解析というとっても面倒な処理が必要なんじゃ無いかと思います。

それから、「動いてくれません」とだけ書いても読み手には「成功以外の何かが起ったんだな」としか判りません。 「何を期待した」と「どうなった」の説明に手間を惜しまない方が、早く良いレスが付くと思いますよ。

お礼

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

ご忠告のとおり「ライブラリ」からのカスタマイズにて対応する事にしました。
質問いたしました方法は時間を見つけ「チャレンジ」していこうと思います。
また、回答者への対応方法も今後は気をつけていきます。