如何在Perl腳本中重用某些函數？

Question

我面臨一個問題，需要重用另一個Perl腳本中的一些功能。我在寫一些測試腳本。測試腳本基本上是相互構建的。

說腳本1的作用：

一些代碼來準備測試。 A. B. C. 確定成功的一些代碼。

然後腳本2的作用：

一些代碼來製備測試。 A. B. C. D. E. 確定成功的一些代碼。

如何在腳本2中重用腳本1的A.B.C？

從腳本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得到美孚/ Common.pm在@INC：

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