Perl的“include”-esque函数

Question

我有一个函数，我想在两个不同的Perl脚本中定义，但不喜欢编辑它们。有没有办法从外部文件中include（如在PHP中）？

FUNC FILE：

sub test {

}

文件1：

include func_file;
foo();
bar();
test();

文件2：

include func_file;
blah();
test();

Answer 1

以狭隘的方式回答这个问题：

是的，您可以使用require('filename')功能包含文件。

一般回答这个问题：

Perl具有通过其包机制定义和导出函数的完整机制。这是described in perlmod。您应该真正使用这种机制，因为您最终可以将模块打包到CPAN模块中，并使其可供其他人使用，或者只是自己在其他系统上轻松安装。

Answer 2

Func.pm：

package Func;

use Exporter qw( import );
our @EXPORT = qw( test );

sub test {
}

1;

File1.pl：

use Func;

test();