Perl Error Handling

[Extension]

Hi,

I'm currently Carp for error handling on my development server. I like the fataltobrowser subroutine for debugging.

Now I'm looking for a routine/sub-routine that would handle errors in production. I simply want to display a HTML message if there's an error ("out of service" type of message). I don't want to show any details about the error(s).

Any info would be appreciated.

Thanks

 

[KevinADC]

Instead of stuff like this:

open (FH, 'foo') or die "$!";

You do something like this:

open (FH, 'foo') or error();

sub error {
   print "whatever you want";
   exit(0);
}

------------------------------------------
- Kevin, perl coder unexceptional!

 

[Extension]

That's what I'm doing for files but I'm looking for something that will cover syntax errors, missing modules/subroutines.

Thanks again

 

[Xaqte]

Sounds like you need exception handling.

 

[Kirsle]

Look at:

http://search.cpan.org/~lds/CGI.pm-3.42/CGI/Carp.pm#Changing_the_default_message

You can use CGI::Carp and just set a custom page to handle it, where you could write the error to a log file and don't show it on the page, or choose whether to show it based on hostname (if you have a dev.mysite.com sort of subdomain syntax) or other factors.

Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'