Perl中BEGIN语句块

xiaoyu28

　　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.
  
•     }
  
• }