perl - Perl 对模块中的未定义做出反应

Question

我写了一个使用不同模块的脚本。脚本循环，返回到开头，直到达到某个 id 并且死亡。

但有时，模块查询的结果是未定义的，脚本会停止。在我目前的情况下：

Can't use an undefined value as a HASH reference at /modulepath/module.pm line xxx

如何告诉 Perl，不要停止和跳过当前处理？我尝试使用以下方法但没有成功：

if (defined $var->movie( id => $imdb )){ 
#do the usual stuff 
}
else {
#skip and do nothing
}

Answer 1

检查是否$var也定义了。

if (defined $var && defined $var->movie( id => $imdb )){ 

Answer 2

用于eval防止代码中止您的脚本。

eval {
  # code that might blow up
};
if ($@) { 
  # it blew up, but we're still running
}