Re: Stopping execution of an eval statement

No need to set a flag, just die in the handler:

sub long { 1 while 1 }
$SIG{INT} = sub { die "got int\n" };

eval {long};
print "got err: $@\n" if $@;
__END__

$ ./perl /tmp/p
got err: got int

$
[download]

Dave.

Comment on Re: Stopping execution of an eval statement Download Code

Replies are listed 'Best First'.
Re^2: Stopping execution of an eval statement by slloyd (Hermit) on Jul 23, 2005 at 20:51 UTC
If i die in the handler, then the whole script would stop processing,not just the eval statement, right? I only want to kill executing the eval statement, not the entire script. http://www.basgetti.com	[reply]
Re^3: Stopping execution of an eval statement by polettix (Vicar) on Jul 23, 2005 at 21:12 UTC
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.	[reply] [d/l] [select]
Re^4: Stopping execution of an eval statement by slloyd (Hermit) on Jul 25, 2005 at 12:37 UTC
Thank you for the clarafication. I modified the code slightly to show this a bit better. Run the following code. Then hit CTRL-C once to abort the eval statement, then wait and then hit CTRL-C to exit completely. `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]