アップローダがうまく作れない
アップローダを作成しています。
しかしなぜか受け取る側の.plでファイルが見つからず、開けません。
HTMLと.plのソース付けときますので間違えの指摘お願いします
<table border="0">
<form action="./UpShori.pl" method="post">
<tr><th><Div Align="right">アップするファイル</th><th><Div Align="left"><input type="file" name="file" size="39"></th></tr>
<tr><th><Div Align="right">ファイルの説明</th><th><Div Align="left"><input type="text" name="setumei" size="50" maxlength="45"></th></tr>
</table><br>
<input type="submit" value="アップロード">
--受け取るUpShori.pl---
#!c:/Perl/bin/Perl.exe
print"Content-type: text/html\n\n";
$Data;
@DataBunkai;
$UpFileName;
@UpFileData;
read(STDIN,$Data,$ENV{'CONTENT_LENGTH'});
@DataBunkai = split("=","$Data");
@DataBunkai = split("&","$DataBunkai[1]");
$UpFileName=$DataBunkai[0];
# ここで”ファイルがありません”と出力される
open(READ,"<","$UpFileName") or die print"ファイルがありません";
@UpFileData=<READ>;
close(READ);
# ↓の生成されるファイル名は気にせずお願いします。
open(WRITE,">","0000");
print WRITE"@UpFileData";
close(WRITE);
print<<End_Of_Program;
End_Of_Program