Exception handling

[stones1030]

Is there a way to catch errors in a block of perl code and handle the errors per block.
I have been doing somehting like this
open(...) or die $!;
open (...) or die $!;
print $! unless (some condition);

SO right now I have script which checks for error messages on as many lines as possible. Is there a better way of doing this?If I open 3 files, i have to repeat this or die $! for each of them.
thank you

 

[FireAndGlass]

Can you put all that into an eval block then check $@?

[tt]
eval {
open (...);
open (...);
open (...);
}
die $@ if $@;
[/tt]

Not sure if that's correct, just an idea.

 

[stevexff]

If you put a die in an eval{} block, you can catch the exception and do whatever you want next. There's a whole section on it in the perlfunc manpage.

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]