Perl中BEGIN语句块

 BEGIN语句块

BEGIN语句块在perl完成解析该块的时候被执行，甚至在文件其他代码被解析之前。在执行的时候会被忽略：

use strict;  
use warnings;  
 
print "This gets printed second";  
 
BEGIN {  
    print "This gets printed first";  
}  
 
print "This gets printed third"; 

BEGIN块一般首先被执行。你可以创建多个BEGIN块（但是最好不要），它们被从头到尾的执行。BEGIN块通常被第一个执行即使它是在脚本的中间（但不要这样做）或者在最后（也不要这样做）。不要把它混在正常代码里面。吧BEGIN块放在开头！

BEGIN块会在该块被解析的时候就执行。当完成后，解析会回到BEGIN块末尾继续往下解析。只有当整个脚本或者模块被解析后，BEGIN块之外的代码就会被执行。

use strict;  
use warnings;  
 
print "This 'print' statement gets parsed successfully but never executed";  
 
BEGIN {  
    print "This gets printed first";  
}  
 
print "This, also, is parsed successfully but never executed";  
 
...because e4h8v3oitv8h4o8gch3o84c3 there is a huge parsing error down here. 

因为它们在编译的时候就会被执行，BEGIN块放在条件块里面也会首先被执行，即使条件判断是false，不管条件判断是否被执行，实际上永远不会去判断：

if(0) {  
    BEGIN {  
        print "This will definitely get printed";  
    }  
    print "Even though this won't";  
} 

不要把BEGIN块放在条件判断语句内。如果你要在某些条件下才执行，你需要把条件判断放在BEGIN块里面：

BEGIN {  
    if($condition) {  
        # etc.  
    }  
}