大量上傳Perl/CGI腳本失敗

我有這個Perl/CGI上傳文件並獲取上傳的文件大小。大量上傳Perl/CGI腳本失敗

對於500MB以下的文件，該腳本工作正常，但緩衝區（OUTFILE）在大約500MB後停止寫入文件。這裏的部分代碼：

$u_size = $ENV{'CONTENT_LENGTH'}; 
if ($u_size > $max_size) {send_error ("Upload too big. Maximum size is $max_size bytes and your file is $u_size bytes.");} 

print_progress(0); 
# Set up uploading function 
$query = CGI->new(\&hook); 

#define functions 
sub hook { 
    if ($error) {return;} 
    if (time >= $next_print) { 
     $next_print = time + $delay; 
     my ($filename, $buffer, $bytes_read, $data) = @_; 
     if ($check_mime) { 
      $filename =~ m/\.([^\.]+)$/; 
      $ext = lc($1); 
      print $ext; 
      $check_mime = 0; 
     } 
     $percent = $bytes_read/$u_size; 
     $filename =~ m/\\([^\\]+)$/; 
     $filename = $1; 
     print_progress($percent, $u_size, $bytes_read, $filename); 
    } 
} 

sub print_progress { 
    open(PROG, '>'.$uploaded_file_progress); 
    print PROG '{"percent" : ' . ($_[0] * 100) . ', "total" : ' . $_[1] . ', "uploaded" : ' . $_[2] . ', "filename" : "' . $_[3] . '"}'; 
    close PROG; 
} 

############# 

$uphandle = $query->upload($query->param()); 
binmode $uphandle; 

if (!$error) { 
    open OUTFILE, ">" . $uploaded_file; 
    binmode OUTFILE; 
    while($bytesread = read $uphandle, $buffer, 1024) { 
     print OUTFILE $buffer; 
    } 
    #while (<$uphandle>) {print OUTFILE $_;} 
    close OUTFILE; 
}

如果腳本是沒有問題的，還有什麼其他的東西，我要檢查？謝謝。

編輯：我在日誌中：超時等待CGI腳本的輸出。我該如何擺脫這種情況？我無法在Google上找到明確的答案。

來源

2011-11-22 user173457