Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Re: Style Point: Catching eval { } errors

by dref (Novice)
on Nov 28, 2003 at 12:29 UTC ( #310710=note: print w/replies, xml ) Need Help??

in reply to Re: Style Point: Catching eval { } errors
in thread Style Point: Catching eval { } errors

If you want to be creative, and can actually stand the function prototypes, you can do this:
sub try (&@) { my($code, $error_handler) = @_; eval { $code->(); }; $error_handler->() if $@; } sub catch (&) { return @_; }
The & allows you to pass code blocks directly without the sub keyword. You can then write:
my $msg; try { open (FILE, "strangefilename") || die "$!"; $msg = <FILE>; } catch { print "File could not be opened because of: $@\n"; $msg = "BAAAAH"; }
This code is from the perlsub perldoc page.

Replies are listed 'Best First'.
Re^3: Style Point: Catching eval { } errors
by Aristotle (Chancellor) on Nov 28, 2003 at 15:30 UTC
    This is what Exception lets you do, and unfortunately has numerous problems. The simplest gotcha of all - did you notice your last snippet is missing a semicolon?

    Makeshifts last the longest.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://310710]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (12)
As of 2016-10-21 16:33 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (289 votes). Check out past polls.