用Perl終止函數，除非

Question

Perl在Perl中有什麼含義？

my $workbook; 
$workbook = Spreadsheet::WriteExcel->new($outputfile); 
terminate("Problems creating new Excel file: $!", 'BATCH_CRITICAL') unless defined $workbook; 

我剛開始學習Perl，所以我可以理解前兩行，只是很難理解第三行的終止函數。 terminate函數和unless defined在這裏做什麼？

是否有任何文檔或頁面鏈接，我可以閱讀有關終止函數除非定義的條件？

Answer 1

的代碼等同於：

my $workbook; 
$workbook = Spreadsheet::WriteExcel->new($outputfile); 

if (!defined($workbook)) { 
    terminate("Problems creating new Excel file: $!", 'BATCH_CRITICAL'); 
} 

Spreadsheet::WriteExcel->new返回undef如果失敗，如文檔中指出：

如果該文件不能被創建，由於文件權限或其他原因，新的將返回undef。因此，在繼續之前檢查新的返回值是一種很好的做法。像往常一樣，如果存在文件創建錯誤，則將設置Perl變量$!。

terminate函數不是Perl內置的函數。它必須是您正在學習的代碼庫的一部分。從我所知道的情況來看，它爲記錄遇到的錯誤提供了一個共同點。

如果您遇到了問題，那麼您不應該首先進入複雜的程序。更好地獲得good book並首先學習基礎知識。