Perl中的BEGIN和END块

您可以在Perl程序中定义任意数量的名为BEGIN和END的代码块，它们分别充当构造函数和析构函数。

BEGIN { ... }
END { ... }
BEGIN { ... }
END { ... }

• 在加载和编译perl脚本之后但在执行任何其他语句之前，将执行每个 BEGIN块。

• 每个END块都在perl解释器退出之前执行。

• 创建Perl模块时，BEGIN和END块特别有用。

以下示例显示其用法-

示例

#!/usr/bin/perl
package Foo;
print "Begin and Block Demo\n";
BEGIN {
   print "This is BEGIN Block\n"
}
END {
   print "This is END Block\n"
}
1;

输出结果

执行以上代码后，将产生以下结果-

This is BEGIN Block
Begin and Block Demo
This is END Block