Question

在perlmod/Perl Modules的示例中，有一个BEGIN块。我查看了一些模块，但没有一个模块有BEGIN块。我是否应该在编写模块时使用这样的BEGIN块，或者它是否可有可无？

Answer 1

如果您需要在编译时间执行某些代码而不是运行时，则只需要BEGIN块。

示例：假设您在非标准库目录（例如Foo.pm）中有一个模块/tmp。您知道通过修改@INC以包含/tmp，您可以让perl找到该模块。但是，这不起作用：

unshift(@INC, '/tmp');
use Foo;    # perl reports Foo.pm not found

问题是use语句是在编译时执行的，而unshift语句是在运行时执行的，所以当perl查找Foo.pm时，包含路径没有（尚未修改）。

实现这一目标的正确方法是：

BEGIN { unshift(@INC, '/tmp') };
use Foo;

现在unshift语句在编译时和use Foo语句之前执行。

绝大多数脚本不需要BEGIN块。您可以通过BEGIN其他模块获取use块中所需的大量内容。例如，在这种情况下，我们可以使用/tmp模块确保@INC位于lib.pm中：

use lib '/tmp';
use Foo;

Answer 2

模块中的BEGIN块完全可有可无。只有在模块加载之前，在使用之前必须完成某些操作，才能使用它。此时很少有理由做多，所以很少有理由使用BEGIN块。