exit EXPR
exit

評估 EXPR 並立即以該值結束。範例

my $ans = <STDIN>;
exit 0 if $ans =~ /^[Xx]/;

另請參閱 die。如果省略 EXPR,則以 0 狀態結束。EXPR 唯一普遍識別的值是成功為 0,錯誤為 1;其他值會根據 Perl 程式執行環境的不同而有不同的詮釋。例如,從 sendmail 收件郵件篩選器結束 69 (EX_UNAVAILABLE) 會導致郵件服務將項目退回,但並非到處都是如此。

如果有人可能想要捕捉任何發生的錯誤,請勿使用 exit 中止子程式。請改用 die,它可以被 eval 捕捉。

exit 函式並不總是立即結束。它會先呼叫任何已定義的 END 常式,但這些 END 常式本身可能不會中止結束。同樣地,任何需要呼叫的物件解構式都會在實際結束前呼叫。END 常式和解構式可以透過修改 $? 來變更結束狀態。如果這是一個問題,您可以呼叫 POSIX::_exit($status) 來避免 END 和解構式處理。有關詳細資訊,請參閱 perlmod

移植性問題:"exit" in perlport