無法調用「嘗試」無包裝或對象引用

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"; 
};