我該如何處理死掉的perl構造函數？

Question

代碼片段：

my $tz = DateTime::TimeZone->new(name => 'America/San_Francisco'); 

這立即死亡，因爲America/San_Francisco不是recognized timezone。被印刷

以下消息：

時區「美/ San_Francisco」無法加載，或者是無效的名稱。

我想處理此錯誤，並在腳本退出前爲用戶打印其他信息。我嘗試使用unless，但沒有運氣趕上die。

這怎麼辦？

Answer 1

使用eval { ... }和$@來捕獲和管理致命錯誤。

my $tz = eval { DateTime::TimeZone->new(name => 'America/San_Francisco') }; 
if (!$tz) { 
    if ($@ =~ /The timezone .* could not be loaded/) { 
     warn "Choose a timezone from ", 
      "https://en.wikipedia.org/wiki/List_of_tz_database_time_zones#List"; 
    } else { 
     warn "Error in DateTime::TimeZone constructor: $@"; 
    } 
    exit 1; 
}