perl - CGI 错误 - 权限被拒绝

Question

我有一个 perl webapp 可以在服务器上正常工作，但不能在我的本地机器上工作。

Apache 日志显示（以及其他错误）：

Permission denied at /home/mywebapp/dev/www/index.cgi line 318.
End of script output before headers: index.cgi

318index.cgi 中的行：

our @gr;
eval('require Groups;');
#close STDERR; <<<< commented
open STDERR, '>1' or die $!;  <<<< line 318

我会很感激任何帮助。谢谢！

Answer 1

STDERR 不应该是 '>1' - 它应该是 '>&1'。按照现在的编写方式，您的脚本将尝试在 Web 服务器用户没有写入权限的目录中创建一个名为 1 的文件。