在
perlmod/Perl Modules的示例中,有一个BEGIN块.我查看了一些模块,但没有一个模块有BEGIN块.在编写模块时我应该使用这样的BEGIN块还是可有可无？
解决方法
如果需要在编译时执行某些代码而不是运行时,则只需要一个BEGIN块.
例如：假设您在非标准库目录(例如/ tmp)中有一个模块Foo.pm.你知道你可以让perl通过修改@INC来包含/ tmp来找到模块.但是,这不起作用：
unshift(@INC,'/tmp'); use Foo; # perl reports Foo.pm not found
问题是use语句是在编译时执行的,而unshift语句是在运行时执行的,所以当perl查找Foo.pm时,include路径尚未被修改(尚未).
实现这一目标的正确方法是：
BEGIN { unshift(@INC,'/tmp') };
use Foo;
现在,unshift语句在编译时和使用Foo语句之前执行.
绝大多数脚本不需要BEGIN块.您可以通过使用其他模块获得BEGIN块中所需的许多内容.例如,在这种情况下,我们可以通过使用lib.pm模块确保/ tmp在@INC中：
use lib '/tmp'; use Foo;