请教如何正确的重复require一个PM

huhuegg

一段时间重复加载一次自定义的PM，不过连续观察后发现脚本会有一些RSS内存增加，
请教我的require使用方法是否有问题~

1. my $Monitor;
   
2. my $defaultPM="......"; #一定可以加载成功的默认PM内容
   
3. my $pm="......"; #隔一段时间会更新内容的PM内容
   
4. 
   
5. sub loadPM {
   
6.     my ($type)=@_;
   
7.     my $sub="[loadPM]";
   
8.     my $filename ="/tmp/monitor_linux.pm";
   
9.     if (-e "$filename") {
   
10.         unlink("$filename");
    
11.     }
    
12.     if (open(PM,">$filename")) {
    
13.         if ($type) {
    
14.             print PM $pm;
    
15.         } else {
    
16.             print PM $defaultPM;
    
17.         }
    
18.         close(PM);
    
19.         eval {
    
20.             if (exists $INC{$filename}) {
    
21.                 $INC{$filename} = undef;
    
22.                 delete $INC{$filename};
    
23.             }
    
24.             require "$filename";
    
25.         };
    
26.         if ($@) {
    
27.             unlink("$filename");
    
28.             wlog('err',"$sub load pm error!");
    
29.         } else {
    
30.             if ($Monitor) {
    
31.                 undef $Monitor;
    
32.             }
    
33.             $Monitor=Monitor::Linux->new();
    
34.             $MonitorVer=$Monitor->{Version};
    
35.             if ($Monitor) {
    
36.                 my $s= "$sub Load new PM ok, version:$MonitorVer";
    
37.                 unlink("$filename");
    
38.             } else {
    
39.                 unlink("$filename");
    
40.                 wlog('err',"$sub Monitor::Linux->new() ERROR,load default PM");
    
41.                 &loadPM();
    
42.             }
    
43.         }
    
44.         eval{unlink("$filename");};
    
45.     } else {
    
46.         die "create pm error!\n";
    
47.     }
    
48. }

复制代码

zhlong8

你直接 eval  $pm 或 $defaultPM 字符串不就行了，何苦再建个临时文件再检测 $!。

huhuegg

不好意思，脚本太长我只摘了一段，
脚本默认将$defaultPM的内容创建到一个临时文件，用于require(因为没有找到方法让require直接可以用字符串)
随着PM的更新将更新的PM内容保存在$pm中，再次创建临时文件使用require加载

这样的想法是否是错误的？

huhuegg

功能上面测试下来貌似没有问题，为什么内存会持续升高呢？
是否是我重复requre的方法有问题？或者需要添加其它的清理方式？

zhlong8

回复 4# huhuegg


    你可以针对这个函数写段代码测试下。另外不修改 %INC 重复执行一个脚本可以用 do 'linux.pm'

zhlong8

还有那里连续两个 open 的写法很2，但是泄露不泄露我也不知道

huhuegg

呀没注意，上面那个根本不需要...
让我偷偷的删了吧

Perlvim

将数据和算法分离出来，用一个纯数据文件表示不断变化的数据，用检测文件大小的方式来判定是否需要加载这个数据。

你将一个变化的数据放到一个模块中，把检测数据变化变成重新加载模块，将问题复杂化，按照这个思路，小问题很快变成大问题，成为泥沼。

huhuegg

这是个Agent，通过PM实现一些定制的功能
更新的不是数据，更新的是sub
远端通过socket将更新的PM推送过来，Agent重新加载这个PM

Agent大部分和业务相关的功能都通过PM更新来实现

这样实现方式是否不妥？

Perl有没有不需要创建文件，能够直接使用require/do或其它方式加载PM的？

huhuegg

反复do也会增加内存，感觉还是没正确释放，求解~