enctype - EmbPerlの%fdat変数でフォームデータ値をnullとして取得する

Question

ファイルのアップロードとフォームのプロパティに行くと、変数のようNULLにフォームのデータ値を取得しています。%fdatEmbPerlenctype="multipart/form-data"

EmbPerl コードは次のとおりです。

if(( defined $fdat{file} && $fdat{file} ) && $fdat{upload} )
{
         $filename = "/tmp/sample.txt";<br/>
         open (FILE, "> $filename") || die("open failed: $!");
         while (read($fdat{file}, $buffer, 32768)) {
         print FILE $buffer || die("print test: $!");
         close FILE || die("close test: $!");  
}

HTMLコードは次のとおりです。

<form name="form1" method="post" enctype="multipart/form-data" onsubmit="return validation();>
 <table>
<tr>   <td>Select EXCEL sheet</td>
    <td><input type="file" name="file" value=""></td>

  </tr>
    <tr>
   <td>&nbsp;</td>
    <td><input type="submit" name="upload" value="upload"></td>
   </tr>
 </table>
 </form>

EmbPerl/2.3.0、CGI/3.63、Perl/5.10.1、Apache/2.2.22、および Linux OS を使用しています。

Answer 1

CGIバージョンをにダウングレードする3.37と、動作します。