如何處理perl中的異常？

Question

我試圖找到clearcase視圖的最近訪問日期，perl腳本如下所示。

@Property = `cleartool lsview -prop $viewtag ` ; 

foreach $property (@Property) 
    { 
    $last_accessed = $property if ($property =~ /^Last accessed /); 
      # | cut -b 15-24 | awk -F '-' '{ print $3"/"$2"/"$1 }' 
    } 

如果cleartool命令失敗，問題是我面臨的是perl腳本退出。即使cleartool返回錯誤，我仍想繼續使用perl。

BRs Mani。

Answer 1

您可以嘗試使用「Try::Tiny」，如「What is the best way to handle exceptions in perl?」中所推薦的。

另一種方法是使用eval cleartool命令。

eval { @Property = `cleartool lsview -prop $viewtag` }; 
if ($@) { 
    warn "Oh no! [$@]\n"; 
} 

Answer 2

簡單而原始的辦法是把潛在的故障代碼的eval塊內：

eval { @Property = `cleartool lsview -prop $viewtag ` }; 

這樣，如果cleartool失敗，您的Perl腳本，甚至會繼續。

正確的方法是使用合適的模塊，如Try::Tiny。該錯誤將在變量$ _中的catch塊內部可用。

try { 
    @Property = `cleartool lsview -prop $viewtag `; 
} 
catch { 
    warn "cleartool command failed with $_"; 
};