0

我使用 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 并告知他们错误发生的时间，以及您所做的任何可能导致错误的事情。

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

4

1 回答 1

4

您需要打印HTTP 标头。

print $query->header();
print '<html>';
print '<body>';
print '<h1>Upload Successfull!</h1>';
print '</body>';
print '</html>';
于 2013-11-02T16:48:43.833 回答