Ловля ошибок с помощью mod_cgi и mod_perl

Question

Спасибо всем заблаговременно.

Я занимался некоторыми исследованиями в области обработки ошибок, и я не чувствую, что понимаю, что я должен делать.

Преамбула: мой код живет в Apache и выполнен в браузере, мои цели не включают выполнение командной строки.

Я хотел бы иметь поведение CGI :: Carp (fatalsToBrowser) с возможностью захвата вывода и иметь возможность бросать его на мою собственную страницу с шаблонами, отправлять по электронной почте и т. Д. ... Я заметил, что fatalsToBrowser не работает с mod_perl. Кто-нибудь знает, почему? Как Apache/mod_perl мешает?

---

Первый гол: Я хотел бы поставить что-то вместе, что работает, если код выполняется с mod_perl или mod_cgi.

Вторая цель: Я хотел бы иметь метод высокого уровня, который улавливает все ошибки, похожие на методы .NET Application_Error .NET (в global.asax) и методы set_exception_handler() и PHP set_exception_handler(). Это позволяет вам контролировать ситуацию при возникновении ошибки, без обертывания кода в беспорядочном /брутто операторов try-catch.

---

Вещи, которые я читал/обзор:

1.) OO Exception Handling in Perl, но не то, что я искал. Большинство вещей, которые я хочу поймать, - die() ing. В следующей ссылке также говорится, что эта статья устарела и устарела.

2.) Perl: $SIG{__DIE__}, eval { } and stack trace, но я не получил многого от этого, связанного с моими целями.

3.) Практический режим Perl (O'Reilly), глава 21 «Обработка ошибок и отладка». К счастью, весь мой код perl использует строгую информацию, и предупреждения включены, и наиболее важные вещи, упомянутые в главе 6 «Кодирование с помощью mod_perl in Mind», уже выполнены.

4.) Я прорыл оглавление в «Изучении Perl», «Perl Cookbook», «Программирование Perl» и «Perl высшего порядка» и не видел ничего, что торчало на меня. Если вы думаете, что я что-то пропустил, пожалуйста, дайте мне знать. :)

---

Я не помню, где (возможно, в «Практической mod_perl», но я читал, что вы не должны связываться с $ SIG {__ DIE__}.

Answer 1

Вы читали немного на mod_perl веб-сайта на Alternative Exception Handling Techniques? В нем обсуждается, как вы можете поймать неперехваченные исключения, хотя использование переопределения глобальной функции die() вместо использования $SIG{__DIE__}. Очень чистый метод, но не идеальный.

Answer 2

Какие ошибки вы ? пытаясь поймать ли custom error pages не достаточно для ваших целей

Мои 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 
}