Perl/CGI 500 内部服务器错误答案

【问题标题】：Perl/CGI 500 internal server errorPerl/CGI 500 内部服务器错误
【发布时间】：2013-11-13 16:28:28
【问题描述】：

我正在使用 CGI Perl 将文件上传到我的服务器。该脚本有效，当我检查目录时它会上传文件。但是页面每次都显示这个错误。

我有一个有效的文件名检查等。

#!/usr/bin/perl

use strict;
use CGI;
use CGI::Carp qw ( fatalsToBrowser );
use File::Basename;

my $upload_to = "/home/username/public_html/uploads";

my $query = new CGI;
my $picture = $query->param("picture");

my $picture_handle = $query->upload("picture");
open( UPLOADFILE, ">$upload_to/$picture");
    binmode UPLOADFILE;
    while ( <$picture_handle> )
            {
                    print UPLOADFILE;
            } close UPLOADFILE;




print '<html>';
print '<body>';
print '<h1>Upload Successfull!</h1>';
print '</body>';
print '</html>';

这是错误。

内部服务器错误

服务器遇到内部错误或配置错误，无法完成您的请求。

请联系服务器管理员 request@domain 并告知他们错误发生的时间，以及您所做的任何可能导致错误的事情。

服务器错误日志中可能会提供有关此错误的更多信息。

【问题讨论】：

每当您收到内部服务器错误时，请阅读 error_log。（除非您在其中一个无法访问它的系统上。这很糟糕。）它通常位于 /var/log/httpd/ 或 /var/log/apache2/。

标签： perl upload cgi

【解决方案1】：

您需要打印 HTTP 标头。

print $query->header();
print '<html>';
print '<body>';
print '<h1>Upload Successfull!</h1>';
print '</body>';
print '</html>';

【讨论】：

你我的男人，太棒了！！！！我怎么连那条线都忘了！！！！！！太感谢了。只要这件事允许我，我就会接受答案。