EmbPerl에서 % fdat 변수에서 양식 데이터 값을 null로 가져옴

Question

파일 업로드 및 양식 속성 enctype="multipart/form-data"의 경우 양식 데이터 값이 (EmbPerl)입니다. 여기

는 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 코드입니다 : 내가 펄/5.10.1, 아파치/EmbPerl/2.3.0, CGI/3.63를 사용하고

<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> 

2.2.22 및 Linux OS.

Answer 1

CGI 버전을 3.37으로 다운 그레이드하면 작동합니다.