Catch all die in Perl?

[Anonymous Monk]

Great Monks,

I'm just about finished writing some automatic error logging and emailing modules for my department's scripts. I'm just thinking about how I can easily apply these to all the existing scripts without using or mail(@args); every time I want to check for an error. I would like to have it so that if any kind of error at all occurs when running the script, then the email will get sent and the error will get logged.

So is there an all encapsulating error checker in Perl? I heard "try" is now in Perl or maybe something with __DIE__? I'm pretty new to the language so thanks for the help!

Greg

[friedo]

You can install a custom handler in %SIG which will catch all fatal errors:

BEGIN { 
    $SIG{__DIE__} = sub { mail( $_[0] ) };
}

That will send the die message to your mail routine. Alternatively, if you don't want to catch all dies, check out the block form of eval.

[Anonymous Monk]

Thanks a ton, that code chunk is just what I was looking for!