Perl 函数参数 大小限制？

shigw001

perl的函数参数 大小是否有限制呢？程序出现out of memory，debug后发现是由于下面的函数第二个匿名hash造成的。
代码如下

1.        
   
2. my $objXXXX = XXXXXX::new($_LOG, {
   
3.                 'ref_flow' => $phHash1,        # key, value比较多，层次比较深，但大小绝对没有10M以上，这个引用用空hash代替就不会出现out of memory
   
4.                 'tag_flow' => $phHash2,       # 同上
   
5.                 'svg' => $xxxxx,
   
6.                 'only_diff' => $xxxxxx,
   
7.                 'ignore_group' => $xxxxxx,
   
8.                     'color' => {
   
9.                           'diff' => $xxxxx,
   
10.                           'add'  => $xxxxxx,
    
11.                           'del' => $xxxxx,
    
12.                           'bckgrd' => $xxxxxx,
    
13.                    },
    
14.                   'height' => $piHeight,
    
15.                   'width'  => $piWidth,
    
16.         });
    

复制代码

zhlong8

那两个都只是引用，你倒是该看看 XXXXXX::new 的代码

shigw001

仔细debug了，确实不是 XXXXXX::new 里面的问题， 而且代码连XXXXXX::new里面都没进入 就报 out of memory 了。
另外又发现一个奇怪的地方就是 我用perl xxx.pl 这种方式没有问题， 但是用PP打包后 允许才有问题。
回复 2# zhlong8


   

104359176

Perl 对数据的大小不做限制，除非系统的内存的限制。Hash 在内存中的开销是很大的，实际占用内存的量要远远大于数据本身的大小。如果是 PP 打包后出现的问题，也许是编译的时候，对 Hash 的大小做的设定，出现了内存溢出。

根据我的习惯，大的数据，通常都保存为外部文件，在用的时候再动态的加载。

还有一种情况会在处理小数据的时候，发生内存溢出，就是出现了互相包含的变量，垃圾回收不能正常回收，动态的多次加载后，内存的消耗就会成倍的增加。

shigw001

发现问题了 原来是Data:umper的原因