Perl中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.          }      }   

以上是内存溢出为你收集整理的Perl中BEGIN语句块全部内容，希望文章能够帮你解决Perl中BEGIN语句块所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。