Perl - 處理傳遞給子數據的無效數據的最佳實踐

Question

當數據不正確地傳遞給子例程時，Perl中的最佳實踐是什麼？如果子死亡或只是返回？

這是我平時做

my @text = ('line 1', 'line 2'); 

print_text(\@text) 
    or die "ERROR: something went wrong in the sub"; 

sub print_text{ 
    my ($aref_text) = @_; 
    return unless ref($aref_text) eq "ARRAY"; 
    print "$_\n" for @{$aref_text}; 
    return 1; 
} 

這裏，子剛返回如果傳遞的輸入是無效的，並預計呼叫者檢查錯誤，因爲它不會在這裏。我想知道在子級別「死亡」是否總是一個更好的做法。在大腳本中，我害怕這樣做，因爲我不想因爲一些簡單的子失敗而殺死整個腳本。

另一方面，我害怕只是返回，因爲如果調用者忘記檢查sub是否返回true，那麼腳本將繼續運行，並且可能會發生奇怪的事情。

感謝

Answer 1

這完全屬於下如何處理與一般子程序錯誤的問題。

已經有很好的討論，但我現在找不到那些帖子。

原則，這些都是在Perl

的方式來處理錯誤子程序

• 返回代碼，其中的一些錯誤指示

• 回報 「特殊」 的價值觀，像undef拋出異常，在Perl中的設備是die

呼叫者要麼檢查退貨，要麼檢測undef，要麼使用eval來捕獲並處理die。什麼是最適合的完全取決於上下文和代碼的作用。

在現代語言中，我沒有看到很多原因被限制爲表示錯誤的「代碼」（如負值）。一方面，干涉會導致合法回報，或者限制他們通過指針/引用去執行，這是一個很大的設計決定。

返回undef通常是一個很好的中間路徑方法，特別是在不太複雜的代碼中。它表明了一些「失敗」的子執行它的意思。然而，即使在最小的子集undef可能適合於指示結果，這是不可接受的。那麼如果它也被用於糟糕的輸入，我們有一個區分這些錯誤的問題。

在簡單的die中引發基於Perl的異常增加了更多的可能性。在複雜的代碼中，您可能希望編寫（或使用）一個錯誤處理類，以模仿來自擁有它的語言的異常處理支持，然後拋出它。

my $error_obj = ErrorHandlingClass->new(params); 

... or die $error_obj; 

然後調用代碼可以分析對象。這將是最有條理的方式。

一個不錯的簡單例子是Path::Tiny，在source中找到它自己的Path::Tiny::Error。

再一次，在任何一個特定情況下適合什麼取決於該應用的細節。

---

對直接問題的一些評論。

die（它告訴我們什麼都沒有成功），無信息的消息強調了返回什麼的困境。但是在這種情況下，我們如何使失敗信息化？

請注意，如果子文件返回0或空字符串，則您的or結果爲die。如果我們將其替換爲//（已定義或），那麼對die替換爲undef，如果undef也可能表示結果不合適，我們仍無法打印特定消息。

因此，在這種情況下，您可能需要在輸入錯誤時輸入die的函數，並輸入合適的消息。

這會做調試。如果代碼需要能夠恢復那麼您最好返回更多結構化信息 - 拋出（或返回）您要編寫的錯誤處理類的對象。 （作爲特別的權宜措施，您可以從die解析信息。）

至於舊的紀律檢查退貨問題，die是一個很好的工具。沒有「簡單子」，這是不值得的–你不想繼續出現錯誤，所以它可以die。而在複雜項目中錯誤處理比較複雜，所以我們需要更多的工具和結構，不能少。

回想一下，異常「冒泡」，在未處理的情況下向上傳播調用堆棧，die也是如此。這可以很好地用於調試，而不必在每個呼叫上都有eval。最後，大部分是調試的一部分。

對此沒有「最佳實踐」。但是默認的die -ing至少是合理的。