使用 mod_cgi 和 mod_cgi 捕获错误 mod_perl

Question

提前感谢大家。

我一直在对错误处理进行一些研究，但我觉得我并没有对我应该做什么有充分的了解。

前言：我的代码位于 Apache 中并在浏览器中执行，我的目标不包括命令行执行。

我希望具有 CGI::Carp (fatalsToBrowser) 的行为，能够捕获输出并能够将其放入我自己的模板页面中，通过电子邮件发送等...我确实注意到 fatalsToBrowser 不起作用与 mod_perl。 有谁知道为什么？ Apache/mod_perl 是如何阻碍的？

---

第一个目标：我想将一些东西放在一起，以便在使用 mod_perl 或 mod_cgi 执行代码时可以正常工作。

第二个目标：我希望有一个高级方法来捕获类似于.NET 的 Application_Error （在 global.asax 中）和 PHP 的 set_exception_handler() 和 set_error_handler() 方法的所有错误。 这些允许您在引发错误时进行控制，而无需将代码包装在混乱的 /gross try-catch 语句中。

---

我读过/评论过的东西：

1.) OO 异常处理在 Perl 中，但不是我正在寻找的。 我想捕捉的大多数东西都是 die()ing。 下一个链接还说这篇文章已过时且已弃用。

2.) Perl：$SIG{__DIE__}、eval { } 和堆栈跟踪，但我并没有从中得到太多与我的目标相关的东西。

3.) Perl 实用模式 (O'Reilly)，第 21 章“错误处理和调试”。 值得庆幸的是，我所有的 Perl 代码都使用严格的并且启用了警告，并且第 6 章“用 mod_perl 进行编码”中提到的最重要的事情已经完成。

4.) 我翻遍了《Learning Perl》、《Perl Cookbook》、《Programming Perl》和《Higher Order Perl》的目录，但没有看到任何让我印象深刻的内容。 如果您认为我错过了某些内容，请告诉我。 :)

---

我不记得在哪里（也许在“实用 mod_perl”中，但我读到你不应该弄乱 $SIG{__DIE__}。

Answer 1

您是否阅读了 mod_perl 网站关于 替代方案的内容异常处理技术？ 它讨论了如何通过使用覆盖全局 die() 函数而不是使用 $SIG{__DIE__} 来捕获未捕获的异常。 一种更干净的方法，但并不完美。

Answer 2

您想捕获什么类型的错误？ 自定义错误页面不足以满足您的目的吗？

我的 CGI 脚本很短（好吧，这确实很简单 - 并且未经测试）：

#!/usr/bin/perl

use strict;
use warnings;

use My::App;
use My::ErrorReporter qw( error_to_html );

run();

sub run {
    my $app = eval {
        My::App->new(
            'some_param',
            'another_param',
        )
    };

    unless ( $app ) {
        print error_to_html( $@ );
        return;
    }

    eval {
        $app->handle_request;        
    } and return;

    print error_to_html( $@ );
    return;
}

__END__

现在，fatalsToBrowser 不适合您的用户。 这对你来说是一个发展援助。 用户看到的错误消息不应传达有关程序的信息。 因此，例如，在打开并读取配置文件的例程中，您应该执行以下操作：

sub read_my_config {
    my $self = shift;

    open my $config_h, '<', $self->config_file;

    unless ( $config_h ) {
        # This goes to the Apache error log where you can read it
        warn sprintf(
            "Cannot open '%s': %s", 
            $self->config_file, $!
        );
        # This is for web site visitors to see
        die "Cannot open configuration file";
    }

    # rest of the code
}