perl - 当我包含一个文件时，为什么我的 Perl CGI 程序会失败？

Question

我正在尝试创建一个基本模板，然后根据所采取的操作加载数据。我包含（必需）一些很好的页面，但是当我包含另一个文件时，我得到了 500 内部错误。直接粘贴代码，它工作正常：

这就是我所拥有的；

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
require LWP::UserAgent;
use DBI;


    #deal with post requests
    require "perl/post-sort.pl";
    #loading stylesheets and javascripts
    require "header.pl";
    # bring in loggin js
    if( $arg{REQUEST_KEY} eq "") {
        require "javascript/js-main-login.pl";
    }
    print "</head> \n";
    print " \n";
    ...
    ...

perl/post-sort.pl

my %arg = ();
for (split /\&/, <STDIN>) {
   my ($key, $val) = split /=/;
   $val =~ s/\+/ /g;
   $val =~ s/%([0-9a-fA-F]{2})/chr(hex($1))/ge;
   $arg{$key} = $val;
}

非常感谢任何帮助。

Answer 1

500 内部服务器错误通常表示标头错误或丢失。确保在包含的代码中，首先打印（到浏览器）的是标题，或者确保没有打印任何内容并且原始代码将打印出正确的标题。

另一种可能性是您正在执行的文件require没有“作为最后一条语句返回 true”（即，不以 a 结尾1;），这将导致您的脚本在编译时失败并产生 500 错误。

另请参阅今天早些时候关于调试 CGI 脚本的适当讨论。