perl中的eval函数

chanshi634 · 发表于 2014-5-24 20:13:44

您需要登录才可以下载或查看，没有账号？注册

x

请问，在perl中，我用eval函数实现如下：

eval{ $answer = 2/0;};
warn $@ if $@;
print "OK\n"；

用了eval函数，程序还是会退出，不能打印出OK，为什么呢？

zero_0 · 发表于 2014-6-24 18:00:37

eval 不是所有异常都能捕捉的

chanshi634 · 发表于 2014-6-25 09:54:34

回复 2# zero_0

袄，这种应该能捕捉的~

zero_0 · 发表于 2014-6-25 11:09:08

你在eval这句前面插几句正确的代码用 perl -d 看一下， \d/0 这种在编译的时候就退出了
作为对比，再试一下以下情况：
$a = 0;
eval{ $answer = 2/$a;};

[求助] perl中的eval函数