无法调用“尝试”无包装或对象引用

Question

我在Perl

try { 
    //statement 1 
    //statement 2 
}; 
catch Error with 
{ 
    print "Error\n"; 
} 

一个try catch块当我运行perl程序我碰到下面的错误

灿没有包或对象引用的调用方法“尝试”...

Answer 1

Perl不提供try或catch关键字。为了捕获die引发的“例外”，您可以设置$SIG{__DIE__}处理程序或使用eval。块形式比字符串形式更受欢迎，因为解析在编译时会发生一次。

eval { 
    // statement 1 
    // statement 2 
} 
if ($@) { 
    warn "caught error: $@"; 
} 

有提供更为传统try - 样功能性的各种模块，如Try::Tiny。

Answer 2

你可能想要的CPAN模块，如Try::Tiny之一：

use Try::Tiny; 

try { 
    # statement 1 
    # statement 2 
} 
catch { 
    print "Error\n"; 
};