ファイルがアップロードされずファイルパスが表示される

質問

$upfile = $param{'upfile'};

# マックバイナリ対策
if ($macbin) {
$length = substr($upfile,83,4);
$length = unpack("%N",$length);
$upfile = substr($upfile,128,$length);
}

# 添付データを書き込み
$imgfile = "$ImgDir$mynum$tail";
if (!open(OUT,"> $imgfile")) {
if ($clip_err) { &check_ok; }
}
binmode(OUT);
binmode(STDOUT);
print OUT $upfile;
close(OUT);

chmod(0666,$imgfile);

全体像を示せなくてすみません。$tailは拡張子。
画像ファイルアップロードつき掲示板を作成しています。
惜しいところまでたどり着きました。

「添付」ファイル（画像）をアップロードすると
フォルダーの中にコンピュータのファイルパスが記述された
だけになります。↓
C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Sunset.jpg

なぜ画像がアップロードされないのでしょうか？
画像のファイルパスがアップされます。

$paramのところが&Readparseを使って$inでないとダメなんで
しょうか？&Readparseは呼び出しておりません。

元にした上手く画像がアップされるのは&Readparseで$inを
変数として使用しております。
しかし、いままで$paramでやってきてすべて$inに変えると
違うところがエラーが起こりそうです。

require "./jcode.pl";
require "./cgi-lib.pl";

を記述しています。

なにかヒントになることがあれば教えて頂きたいです。
よろしくお願いします。

回答No.1

Tacosan · ベストアンサー

その, 記述された「画像のファイルパス」が正しいものであれば, 「ファイルの中身」を書き込まなければならないってことを忘れた?

お礼

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

回答No.2

laundryload

$param{'upfile'}が空とか？

これぶっちゃけ、KENT-WEBで配布してるJoyful Noteのコードじゃないんですか？
QNo.2791669を見る限り、勉強目的で入力されてる訳でもなさそうですし、いっそダウンロードしたものを使ってはいかがでしょうか。
http://www.kent-web.com/bbs/index.html

参考URL：

http://www.kent-web.com/index.html

お礼

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