如何在Perl脚本中重用某些函数？

Question

我正面临一个问题,需要重用另一个Perl脚本中的一些函数.我正在写一些测试脚本.测试脚本基本上是相互构建的.

说脚本1做:

一些准备测试的代码.ABC一些代码来确定成功.

然后脚本2执行:

一些准备测试的代码.ABCDE确定成功的一些代码.

如何在脚本2中重用脚本1的ABC？

从脚本2调用脚本1将不起作用,因为确定脚本成功的代码.做这个的最好方式是什么？

谢谢

Answer 1

将函数放在模块中并包含两个文件中的函数.

有关详细信息,请参阅http://perldoc.perl.org/perlmod.html.

Answer 2

美孚/ Common.pm:

package Foo::Common;
use strict;
use warnings;
use parent 'Exporter';
our @EXPORT_OKAY = qw(frob borf);

sub frob {}
sub borf {}

1;

在某些脚本或模块中,use lib在@INC中提供或获取Foo/Common.pm:

use Foo::Common qw(frob borf);
frob();