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