How do I test for an exception type in perl?

How can I check what kind of exception caused the script or eval block to terminate? I need to know the type of 开发者_开发知识库error, and where the exception occurred.

The Perl way

Idiomatic Perl is that we are either ignoring all errors or capturing them for logging or forwarding elsewhere:

eval { func() };  # ignore error

or:

eval { func() };
if ($@) {
    carp "Inner function failed: $@";
    do_something_with($@);
}

or (using Try::Tiny - see that page for reasons why you might want to use it over Perl's built-in exception handling):

try { func() }
catch {
     carp "Inner function failed: $_";
     do_something_with($_);
};

If you want to check the type of exception, use regexes:

if ( $@ =~ /open file "(.*?)" for reading:/ ) {
    # ...
}

The line and file is also in that string too.

This is pretty nasty though, because you have to know the exact string. If you really want good error handling, use an exception module from CPAN.

Exception::Class

$@ doesn't have to be a string, it can be an object. Exception::Class lets you declare and throw exception objects Java-style. You can pass arbitrary information (filename, etc.) with the error when you throw it and get that information out using object methods rather than regex parsing - including the file and line number of the exception.

If you're using a third party module that does not use Error::Exception, consider

$SIG{__DIE__} = sub { Exception::Class::Base->throw( error => join '', @_ ); };

This will transform all errors into Exception::Class objects.

Error::Exception sets up proper stringification for Exception::Class objects.