讲讲undef 和内存释放

climby

有人问到了undef %hash 是不是释放哈希表的内存。 答案：不是。
刚好就这个问题随便聊聊undef 和内存释放。

一般来说,变量的内存是直到超出变量范围才会释放的. 在变量范围内清除一个变量内容,只会让你感觉到"似乎"获得了一个新的变量. 当变量超出范围后,如果有任何原因阻止内存释放(例如,还有一些引用指向该变量),该变量将会变成匿名变量,系统将会分配一个全新的变量.
基于以上的原因, undef %hash 并不是释放内存, 只是清除%hahs变量的内容,只不过undef 不仅仅是清除变量内容,而且释放了变量的buffers.
以下是清除一个变量内容的方法:

1.   
   
2. $s = undef
   
3. @a = ();
   
4. %h = ()
   

复制代码

单纯的清除变量内容,并不是直接释放内存, 变量的buffer只是被标记了unused, 但还是保存了内存分配,为以后使用.
  
undef 函数也可以用来清除一个变量内容

1. 
   
2. undef $s
   
3. undef @b
   
4. undef %h
   

复制代码

只不过 undef 除了清除变量内容以外,还清除了变量的buffers.  

有例为证:

1. 
   
2. ========================
   
3. 
   
4. perl -MDevel::Peek -e'
   
5.      $s = "abc"; Dump $s;
   
6.      $s = undef; Dump $s;
   
7.      undef $s;   Dump $s; '
   
8.   
   
9. ========================
   
10. SV = PV(0x1e5dc20) at 0x1e7dac8
    
11.    REFCNT = 1
    
12.    FLAGS = (POK,pPOK)      <--  变量中保存一个字符串
    
13.    PV = 0x1e76d00 "abc"\0
    
14.    CUR = 3
    
15.    LEN = 16
    
16. SV = PV(0x1e5dc20) at 0x1e7dac8
    
17.    REFCNT = 1
    
18.    FLAGS = ()                    <-- 变量内容被清除了
    
19.    PV = 0x1e76d00 "abc"\0        <-- 变量的buffer仍在
    
20.    CUR = 3
    
21.    LEN = 16
    
22. SV = PV(0x1e5dc20) at 0x1e7dac8
    
23.    REFCNT = 1
    
24.    FLAGS = ()               <--   变量内容被清除了
    
25.    PV = 0                   <--   变量的buffer也被清除了
    
26. ========================
    

复制代码

有此看来， undef 函数的作用其实非常有限，因为大多数场合上，仅仅清除变量的内容就足够了。
  
[ THE END ]  

minirain

那么请问楼主，如何能用perl对内存进行释放呢？因为对不用％hash变量进行清除，而且还需要释放给程序其它变量使用，程序提示内存溢出（程序本身没有错误）。

cdtits

刚学 perl 不久，谢谢楼主分享！

climby

回复 2# minirain

内存释放发生在超出变量范围，并且没有其他对变量的引用的时候。
例如：

1. 
   
2. my %hash;
   
3. ...
   
4. 
   

复制代码

这样 %hash 变量范围就是整个文件，要到文件结束后才可能释放内存的。

换一种

1. 
   
2. 
   
3. my $s;
   
4. {
   
5.   my %hash;
   
6.   ...
   
7. }
   
8. # 此时已经超出%hash的变量范围， 如果没有其他地方对%hash有引用， 理论上此处就会释放掉%hash内存，其他变量就可以使用释放后的内存了。
   

复制代码

xiyoulaoyuanjia

学习了～～