perlmod问题

Question

在perlmod/Perl模块的示例中,有一个BEGIN块.我查看了一些模块,但这些模块都没有BEGIN.BEGIN在编写模块时我应该使用这样的块还是可有可无？

Answer 1

BEGIN如果需要在编译时执行某些代码而不是运行时,则只需要一个块.

例如:假设您Foo.pm在非标准库目录中有一个模块(如/tmp).你知道你可以通过修改@INCinclude 来让perl找到模块/tmp.但是,这不起作用:

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;