将 CGI 错误输出从 STDERR 重定向到文件（python 和 perl）

Question

我正在将一个网站移至 Hostmonster，并询问服务器日志位于何处，以便我可以自动扫描它是否有 CGI 错误。有人告诉我：“很抱歉，您有权访问的任何文件都不会出现 CGI 错误。”

出于组织原因，我坚持使用 Hostmonster 和这个糟糕的策略，因此作为一种解决方法，我想也许我应该修改 CGI 脚本以将 STDERR 重定向到自定义日志文件。

我有很多脚本 (269)，因此我需要一种使用 Python 和 Perl 的简单方法将 STDERR 重定向到自定义日志文件。

能够显式或隐式地解释文件锁定的东西会很棒，因为理论上，如果多个脚本同时失败，共享的 CGI 错误日志文件可以由多个脚本同时写入。

（我想使用共享错误日志，这样我就可以每晚通过电子邮件将其内容发送给自己，然后存档或删除它。）

我知道我可能必须修改每个文件（grrr），这就是为什么我正在寻找一些优雅的东西只需几行代码。谢谢。

Answer 1

对于 Perl，只需关闭并重新打开 STDERR 以指向您选择的文件。

close STDERR;
open STDERR, '>>', '/path/to/your/log.txt' 
  or die "Couldn't redirect STDERR: $!";

warn "this will go to log.txt";

或者，您可以查看文件句柄多路复用器，例如 File::三通。

Answer 2

Python：cgitb。在脚本的顶部，在其他导入之前：（

import cgitb
cgitb.enable(False, '/home/me/www/myapp/logs/errors')

“errors”是 Web 服务器用户具有写入访问权限的目录。）

Answer 3

在 Perl 中尝试 CGI::Carp

BEGIN { 
use CGI::Carp qw(carpout); 
use diagnostics;
open(LOG, ">errors.txt"); 
carpout(LOG);
close(LOG);
}

use CGI::Carp qw(fatalsToBrowser);

Answer 4

我最终采用的解决方案类似于以下内容，靠近所有脚本的顶部：

Perl：

open(STDERR,">>","/path/to/my/cgi-error.log")
    or die "Could not redirect STDERR: $OS_ERROR";

Python：

sys.stderr = open("/path/to/my/cgi-error.log", "a")

显然在 Perl 中，您不需要在重新打开 STDERR 句柄之前关闭它。

通常情况下，我都会将其关闭作为最佳实践，但正如我在问题中所说，我有 269 个脚本，并且我正在努力最大程度地减少更改。 （另外，重新打开打开的文件句柄似乎更Perlish，听起来很糟糕。）

如果将来其他人有类似的东西，我将执行以下操作来立即更新所有脚本：

Perl ：

find . -type f -name "*.pl" -exec perl -pi.bak -e 's%/usr/bin/perl%/usr/bin/perl\nopen(STDERR,">>","/path/to/my/cgi-error.log")\n    or die "Could not redirect STDERR: \$OS_ERROR";%' {} \;

Python：

find . -type f -name "*.py" -exec perl -pi.bak -e 's%^(import os, sys.*)%$1\nsys.stderr = open("/path/to/my/cgi-error.log", "a")%' {} \;

我发布这些命令的原因是我花了相当多的语法调整才能使这些命令起作用（例如，将 Couldn't 更改为 Could not，将 #!/usr/bin/perl 更改为/usr/bin/perl 这样 shell 就不会将 ! 解释为历史字符，使用 $OS_ERROR 而不是 $! 等）

感谢所有发表评论的人。由于没有人同时回答 Perl 和 Python，我无法真正“接受”任何给出的答案，但我确实给那些引导我走向正确方向的答案投票。再次感谢！

Answer 5

Python：

import sys

sys.stderr = open('file_path_with_write_permission/filename', 'a')

Answer 6

Python 有 sys.stderr 模块，您可能想研究一下。

>>>help(sys.__stderr__.read)
Help on built-in function read:

read(...)
    read([size]) -> read at most size bytes, returned as a string.

    If the size argument is negative or omitted, read until EOF is reached.
    Notice that when in non-blocking mode, less data than what was requested
    may be returned, even if no size parameter was given.

您可以将其输出存储在字符串中并将该字符串写入文件。

希望这有帮助

Answer 7

在我的 Perl CGI 程序中，我通常

BEGIN {
  open(STDERR,'>>','stderr.log');
}

在 shebang 行之后加上“use strict;use warnings;”。如果需要，您可以在文件名后附加 $0。但这并不能解决多个程序的问题，因为一个程序的多个副本可能会同时运行。对于每个程序组，我通常只有几个输出文件。