Perl的特殊代碼塊：BEGIN、CHECK、INIT、END和UNITCHECK

這是5個特殊的代碼塊。要理解這幾個塊，關鍵在於幾個時間點：

• (1).程序編譯期間
  
• (2).程序執行期間
  
• (3).程序執行結束但還未退出期間

BEGIN塊

• BEGIN塊是在程序編譯期間執行的，也就是上面的步驟(1)所在期間
  
• 即便程序中出現了語法錯誤，BEGIN塊也會執行
  
• 若是出現了多個BEGIN塊，則按照FIFO(first in first out)的方式輸出，也就是從上到下的順序

在BEGIN期間能夠作一些程序執行以前的操做，例如事先給某個比較特殊的變量賦值，檢查文件是否存在，檢查操做系統是否知足要求等等。

package Foo;
use strict;
use warnings;
BEGIN {
    print "This is the first BEGIN block\n";
}

print "The program is running\n";

BEGIN {
    print "This is the second BEGIN block\n";
}

因爲BEGIN代碼塊在編譯期間執行，程序普通行的print是在執行期間執行，因此上面的代碼結果爲：

This is the first BEGIN block
This is the second BEGIN block
The program is running

下面程序出現語法錯誤，但BEGIN也會執行：

BEGIN {
    print "This is the first BEGIN block\n";
}

print "The program is running\n";

BEGIN {
    print "This is the second BEGIN block\n";
}
my $x =;

執行結果：

syntax error at some_program.pl line 8, near "=;"
Execution of some_program.pl aborted due to compilation errors.
This is the first BEGIN block
This is the second BEGIN block

不過上面的error信息不必定會最早輸出，由於stdout和stderr是兩個獨立的文件句柄，沒法保證它們之間的順序。

實際上，use導入模塊時若是導入的是空列表，它等價於在BEGIN中使用require語句：

use File::Find ();
# 等價於
BEGIN {
    require File::Find;
}

END塊

END塊是在程序執行結束，但退出前執行的，也就是上面的步驟(3)所在期間。

• 當觸發了die的時候，它們也會執行
  
• 但能夠經過信號來忽略END
  
• 它們的執行順序是LIFO(last in first out)，即從下往上輸出
  
• END經常使用來作清理、善後操做

END {
    print "This is the first END block\n";
}

END {
    print "This is the second END block\n";
}

輸出結果：注意，先輸出second END，再輸出first END

This is the second END block
This is the first END block

INIT、CHECK 和 UNITCHECK 塊

INIT、CHECK 和 UNITCHECK 塊生效於程序編譯結束以後、執行以前。因此若是語法錯誤，它們不會被觸發。

• CHECK在編譯結束後當即執行，即上面步驟(1)剛完成以後，輸出格式爲LIFO
  
• INIT緊跟在CHECK以後，也是在步驟(2)以前，輸出格式爲FIFO
  
• UNITCHECK是在perl 5.9.5以後引入的功能。用於解決執行期間require或do或eval導入文件時不觸發CHECK和INIT的問題(由於這些語句的導入是在執行期間進行的，而這兩個塊是在編譯期間進行的)。UNITCHECK是在導入的文件剛編譯完成以後、執行以前當即執行的

INIT {
    print "This is the first INIT block\n";
}
CHECK {
    print "This is the first CHECK block\n";
}
INIT {
    print "This is the second INIT block\n";
}
CHECK {
    print "This is the second CHECK block\n";
}

輸出結果：

This is the second CHECK block
This is the first CHECK block
This is the first INIT block
This is the second INIT block