Perl 语言深坑之模块互相调用

104359176

Perl 语言模块互相调用会出现问题。

如果 Package A 中需要 Package B 的一个函数，而 Pakcage B 也需要 Package A 的导出函数，那么总有一个无法调用。

对于这个问题，要么合并两个模块，要么解除两者之间的互相调用关系。

1. $ cat call-eachother.pl
   
2. #!perl
   
3. 
   
4. {
   
5.    package A;
   
6. 
   
7.    use 5.012;
   
8. 
   
9.    use Exporter;
   
10.    our @ISA = qw(Exporter);
    
11.    our @EXPORT = qw(a_call);
    
12. 
    
13.    use B qw(b_call);
    
14. 
    
15.    sub a_call {
    
16.       say "this is a_call()";
    
17.       b_call();
    
18.    }
    
19. 
    
20.    1;
    
21. }
    
22. 
    
23. {
    
24.    package B;
    
25. 
    
26.    use 5.012;
    
27. 
    
28.    use Exporter;
    
29.    our @ISA = qw(Exporter);
    
30.    our @EXPORT = qw(b_call);
    
31. 
    
32.    use A qw(a_call);
    
33. 
    
34.    sub b_call {
    
35.       say "this is b_call()";
    
36.       a_call();
    
37.    }
    
38. 
    
39.    1;
    
40. }
    
41. 
    
42. A::a_call();
    
43. B::b_call();
    
44. 
    
45. 
    
46. ssqq@SZQ C:\Users\ssqq\Spp\lib
    
47. $ perl call-eachother.pl
    
48. "b_call" is not exported by the B module
    
49. Can't continue after import errors at call-eachother.pl line 12.
    
50. BEGIN failed--compilation aborted at call-eachother.pl line 12.

复制代码

laputa73

再加个c或许就可以了

104359176

直接用带包全名就可以了，加 C 也是循环引用，不知道可以不可以，这是欺骗编译器的行为

zhlong8

你知道 Perl 自带个模块叫 B 吗?


假设你解决名字的问题那么

如果用户 use A; 按实际执行顺序是
编译A.pm ->
遇到 use B;语句 ->
编译B.pm ->
B 中遇到 use A; ->
此时A在编译,无需重复编译 ->
执行 A->import('a_call') ->
此时 @ISA='Exporter'; @EXPORT='a_call'; 还没开始执行,因为A编译都还没完成,怎么执行. 修改代码 use base 'Exporter'; BEGIN { @ EXPORT = 'a_call'; } 放在 A.pm 的 use B; 之前 ->
A中继承来 Exporter 的 import 方法，A->import('a_call') 可以正确执行,导入正确的符号 a_call 到 package B ->
B 编译完找到符号a_call(), 执行B.pm ->
A 中执行 B->import('b_call') 成功 ->
编译A中 use B 之后的代码 ->
A 编译完成,执行 A 模块代码 ->

客户 use A; 完成整个 A B 模块的导入。关键在于分清编译和执行两步顺序，use A qw(args); 等价于 BEGIN{ require A; A->import(qw(args)); }

zhouzhen1

回复 4# zhlong8

版主正解。
话说现在use base ’Exporter‘;这个，现在很多人喜欢写use Exporter 'import';即不需要继承Exporter。

104359176

版主说了很多，看不懂，不知道是说什么。也不清楚不能互相调用是用错了模块名称，还是编译器不允许。

修改了模块名称，模块之间是可以相互调用的。

1. $ cat call-each.pl
   
2. #!perl
   
3. 
   
4. {
   
5.    package AA;
   
6. 
   
7.    use 5.012;
   
8. 
   
9.    use Exporter;
   
10.    our @ISA = qw(Exporter);
    
11.    our @EXPORT = qw(a_call);
    
12. 
    
13.    # use BB;
    
14. 
    
15.    sub a_call {
    
16.       say "this is a_call()";
    
17.       BB::b_call();
    
18.    }
    
19. 
    
20.    1;
    
21. }
    
22. 
    
23. {
    
24.    package BB;
    
25. 
    
26.    use 5.012;
    
27. 
    
28.    use Exporter;
    
29.    our @ISA = qw(Exporter);
    
30.    our @EXPORT = qw(b_call);
    
31. 
    
32.    sub b_call {
    
33.       say "this is b_call()";
    
34.       AA::a_call();
    
35.    }
    
36. 
    
37.    1;
    
38. }
    
39. 
    
40. AA::a_call();
    
41. BB::b_call();
    

复制代码

运行后，产生了循环调用，当然实际中是有退出条件的。

1. this is b_call()
   
2. this is a_call()
   
3. this is b_call()
   
4. this is a_call()
   
5. this is b_call()
   
6. this is a_call()
   
7. this is b_call()
   
8. this is a_call()
   
9. this is b_call()
   
10. this is a_call()
    
11. this is b_call()
    
12. this is a_call()
    
13. this is b_call()
    
14. this is a_call()
    
15. this is b_call()
    
16. this is a_call()
    
17. this is b_call()
    
18. this is a_call()
    
19. Terminating on signal SIGINT(2)

复制代码

easunlee

104359176 发表于 2017-09-14 11:35
版主说了很多，看不懂，不知道是说什么。也不清楚不能互相调用是用错了模块名称，还是编译器不允许。

修 ...

Perl 有一个标准模块叫 B 。
你定义包B ，等于覆盖了Perl的标准模块。 所以换名称就可以了。