我正在尝试使用两个包并从一个调用函数到另一个,但我有这个错误：
未定义的子程序& module2 :: method_1_2在module2.pm第20行调用.
提前致谢.
哈维
执行错误：
./test.pl method_1_1 method_2_1 method_2_2 Undefined subroutine &module2::method_1_2 called at module2.pm line 20.
示例代码(test.pl)：
#!/usr/bin/perl use strict; use module1; use module2; method_1_1(); method_2_2();
module1.pm
package module1;
use strict;
use module2;
require Exporter;
use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw( method_1_1 method_1_2 );
sub method_1_1
{
print "method_1_1\n";
method_2_1();
}
sub method_1_2
{
print "method_1_2\n";
}
1;
module2.pm：
package module2;
use strict;
use module1;
require Exporter;
use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw( method_2_1 method_2_2 );
sub method_2_1
{
print "method_2_1\n";
}
sub method_2_2
{
print "method_2_2\n";
method_1_2();
}
1;
解决方法
问题是module1做的第一件事就是使用module2.这意味着在module1仍在编译时读取并执行所有module2.
接下来要做的是module2确实使用module1.因为找到了module1并将其放入％INC中,Perl不会再次执行它,只需要执行module1-> import来获取导出的符号.
但是,当然module1实际上几乎没有开始编译,@ module1 :: EXPORT甚至不存在,更不用说它的两个子程序了.这使得Exporter根本无法导入module2,因此当调用method_1_2()时,它对此一无所知.
解决此问题的最简单方法是在编译之后(包括所有use语句和BEGIN块)但在运行时之前执行导入. Perl的INIT block非常适用于此,我们可以通过将模块更改为下面的表格来获得代码.我在这里只显示了module2,因为调用模式意味着这就是修复这个特定问题所需的全部内容,但是一般情况需要对所有协作模块进行等效更改.
package module2;
use strict;
use warnings;
use module1;
INIT { module1->import }
use base 'Exporter';
our @EXPORT = qw( method_2_1 method_2_2 );
sub method_2_1 {
print "method_2_1\n";
}
sub method_2_2 {
print "method_2_2\n";
method_1_2();
}
1;