perl - For/foreach 循环使 CGI 服务器崩溃

Question

我需要为一个包含一些 for 或 foreach 循环的类编写一些 perl 脚本。出于某种原因，即使是最简单的 for 循环也只是返回 500 服务器错误。我检查了很多次，代码也可以在 codepad.org 上运行，但我不知道为什么它不能在服务器上运行。我无权访问服务器日志，所以我无法真正说出发生了什么。这些是一些非常简单的循环，它们也会导致错误。

@a=(2,3,4);
  foreach my $r (@a) { 
      print $r;
  }

或者

 @a=(2,3,4);
  for ($i = 0; $i <= 2 ; $i++) {
        print $a[$i];

    }

有任何想法吗？

Answer 1

任何时候你在写一个 CGI 脚本，在你处理它的时候把它放在顶部：

 use CGI::Carp qw(fatalsToBrowser);

这会将 Perl 脚本中的重定向错误发送到浏览器窗口。它应该让您更好地了解导致问题的原因（假设它在脚本级别）。

它还可以让您轻松地将自己的错误和测试语句发送到浏览器，使用die：

die "testing 1 2 3";

这对于进行快速调试很有用。