Re^3: Stopping execution of an eval statement


Think about Loose Coupling
	PerlMonks

Re^3: Stopping execution of an eval statement

by polettix (Vicar)

on Jul 23, 2005 at 21:12 UTC ( [id://477518]=note: print w/replies, xml )

Need Help??

in reply to Re^2: Stopping execution of an eval statement
in thread Stopping execution of an eval statement

If i die in the handler, then the whole script would stop processing,not just the eval statement, right?

Wrong.

die inside an eval is a common idiom to have exception handling in Perl (see eval for examples, BTW). If you look at the example by dave_the_m, you'll see that the line after eval {long}; is printed - probably after the user has hit CTRL-C.

Flavio
perl -ple'$_=reverse' <<<ti.xittelop@oivalf

Don't fool yourself.

Comment on Re^3: Stopping execution of an eval statement Select or Download Code

Replies are listed 'Best First'.

Re^4: Stopping execution of an eval statement
by slloyd (Hermit) on Jul 25, 2005 at 12:37 UTC

use strict;
$|=1;
sub long { 1 while 1 }
$SIG{INT} = sub { die "got int\n" };
print "SIG{INT}=$SIG{INT}\n";
eval {long};
print "got err: $@\n" if $@;
print "Loop after first eval\n";
while(1){
    select(undef,undef,undef,.25);
    }
print "OK I am a done\n";
__END__
[download]

http://www.basgetti.com

[reply]
[d/l]

In Section Seekers of Perl Wisdom