忽略Perl END塊中的錯誤

Question

如何忽略發生在Perl END塊中的die()？

因爲它是現在我得到

END失敗 - 呼叫隊列中止

和錯誤冒泡調用腳本。

Answer 1

將您的結束塊放在eval { .... }之內 - 這應防止您描述的行爲。

#!/usr/bin/perl 

print("hi there!\n"); 

END { 
    eval{ 
     print("goodbye\n"); 
     die("this can't hurt...."); 
    }; 

    #detect if an error occurred in the eval 
    if ($@){ 
     print ("an error occurred: $@\n"); 
    } 
} 

Answer 2

Try::Tiny是eval一個很好的包裝，讓您明確地處理運行時異常。

Answer 3

將您的代碼放入eval塊中，如果您想檢索die提供的錯誤消息，您可以使用if條件以外的條件捕獲。

#!/usr/bin/perl 
my $val=1; 
eval 
{ 
    print "Inside Eval\n"; 
    if($val == 1) 
    { 
    die "hello world\n"; 
    } 
    print "End of Eval\n"; 
}; 
if ($@) 
{ 
     print "Error message - $@" . "\n"; 
}