在Perl中測試時記錄錯誤的最佳方式是什麼？

Question

在Perl中測試時記錄錯誤的最佳方式是什麼？我更喜歡單線解決方案，如

return 0 if $var!=3 and $logger->error("Var is not 3")) 

可以像所示的例子實施？

Answer 1

$logger->error("Var is not 3"), return 0 if $var != 3; 

這走的是Perl的爲comma operator支持，允許你到零部件到左進行評估，但它們的價值被忽略，與表達是最右邊的終值編寫表達式的優勢。

Answer 2

你總是可以這樣做：

$logger->error("Var is not 3") and return 0 if $var != 3 

該技術利用的和的低優先級（和如果的還要低優先級）。

Answer 3

我更喜歡用鯉魚/ cro魚/懺悔，如果它只是我的調試，但如果你正在做生產代碼，可能試試Log::Report。

所以，像這樣的東西：$var == 3 or confess("var != 3!")是我會用，如果我想要一個打印錯誤和堆棧跟蹤的單線程。

Answer 4

Log4Perl可能會做你想要的。這是Log4J的Perl克隆。它具有細粒度的動態日誌過濾配置。

Answer 5

如果您使用的是Test :: More，請使用diag（）。這證明和類似的更好玩。