perl - Perl 的 $@ 在 eval 之后会被取消定义吗？

Question

我正在研究 "Error Handling and Reporting" 的 Mastering Perl 章节。在 perlvar 的 $@ 条目中，它说:

The Perl syntax error message from the last eval() operator. If $@ is the null string, the last eval() parsed and executed correctly (although the operations you invoked may have failed in the normal fashion).

现在我想知道 eval 何时可能无法正确执行，而将 $@ 留下未定义的值。有没有这样的案例？

Answer 1

这是一种方法(但在阅读之前请坐下。;))

$@ = 123;
eval q{
  $@ = 456;
  print ">>>$@<<<\n";
  goto SKIP;
};

SKIP:
print ">>>$@<<<\n";