如何延迟加载模块

104359176

某个模块是动态生成的，想要先执行更新模块的动作，然后再加载这个模块。

不知该怎么办？

我试了一个办法：

    BEGIN {
          update_module();
    }

    END {
          use Updated::Module;
    }

不行。

    update_module();

    eval("use Updated::Module");


也不行。

jason680

回复 1# 104359176

How about the require function

zhouzhen1

楼主自己想的这两个方法，虽然都不太正规，不过理论上其本身应该都是可行的，TIMTOWTDI嘛。。主要问题估计在别的什么环节上。楼主最好说一下你报了什么错，以及为什么要动态生成模块。

104359176

require 试了，也不行，而且 require 也不能导入函数。

为什么要动态生成？因为所有代码是转换而来，而所有转换的的代码，也是用转换的代码转换的。

jason680

回复 4# 104359176

从头到尾只看到 不行...

zhlong8

use require 最终都可以转换成　eval  字符串，所以关键是你到底想什么时候，编译执行哪一段代码？

quanpai

可以写一些测试来验证一下

1. #!/usr/bin/perl
   
2. open my $fh, ">", "Foo.pm";
   
3. my $code = do {local $/; <DATA>};
   
4. print $fh $code;
   
5. close $fh;
   
6. 
   
7. require Foo;
   
8. Foo->new->say_hello;
   
9. 
   
10. __DATA__
    
11. package Foo;
    
12. 
    
13. sub new {
    
14.   my $class = shift;
    
15.   return bless {}, $class;
    
16. }
    
17. 
    
18. sub say_hello {
    
19.     print "say hello!\n";
    
20. }
    
21. 
    
22. 1;

复制代码

104359176

用require 确实可以，但 require 不能过滤导入列表：

       require Module qw(import name list);

这样的语句是非法的。

看样要使用带全名的导入符号，或者是使用面向对象的模块了。

jason680

回复 8# 104359176

using require and use to import function

File_A.pl
...
# you can create Module_B and Module_C in runing time
require Module_B;  
....



Module_B.pm
use Module_C qw(import name list);

1;

zhouzhen1

perldoc use
perldoc perlmod

建议看看上面两个文档。use可以等价于BEGIN block内的require + import的操作。