Jak zwolnić pamięć w Perlu?

Question

Mój kod wygląda następująco: wykorzystanie pamięci

my %var; 
my %var_new={}; 

while(1){ 
    while(my ($k,$v)=each %var){ 
      &a_sub($v); 
    } 
    %var={}; # A 
    map { $var{$_}=$var_new{$_}; } keys %var_new; 
    %var_new={}; # B 
} 

sub a_sub { #....} # will fill %var_new 

mój program idzie w górę iw górę.

Wydaje Perl nie wolnej pamięci na linii A i B.

Jak mogę ręcznie dokonać Perl, aby zwolnić pamięć używana %var i %var_new?

Answer 1

IIRC, gdy Perl przydzielił pamięć z systemu operacyjnego, to trzyma na tej pamięci dla życia procesu. O ile to możliwe, Perl będzie używał ponownie pamięci już przydzielonej, zamiast pytać systemu operacyjnego o więcej, ale nie zobaczysz pamięci używanej przez proces zmniejszania.

Answer 2

Myślę, że przy użyciu undef funkcję:

undef %var, %var_new; 

może załatwić sprawę. To oczywiście jeśli nie potrzebujemy, co jest w środku tych skrótów już

Answer 3

Jeśli użył strict i warnings, byś widział:

referencyjny znaleźć gdzie nawet wielkości lista spodziewać

Linie A i B nie robią tego, jak im się wydaje. W rzeczywistości przypisują one jako klucz usztywnioną wersję odniesienia do pustego skrótu, a undef jako jego wartość. Nawet jeśli wartość skrótu jest teraz prawie pusta, pamięć nie jest oznaczona jako możliwa do ponownego użycia, ponieważ nie wykorzystano do tego odpowiedniej instrukcji.

Spróbuj użyć jednego z poniższych stwierdzeń na liniach A i B:

undef %var; # this one 
%var =(); # or this one