Gestione della memoria in perl

Question

Ho affrontato un problema strano di gestione della memoria in Perl. Sto lavorando in un'applicazione perl che utilizza hash-strutture piuttosto grandi. Sto assegnando l'ha rif con e indietro gli oggetti. Ma alla fine sembra che anche se sto deallocando l'oggetto e l'hash, l'utilizzo della memoria è rimasto lo stesso.

Ecco un esempio del problema:

my $hash = {}; 
............. 
this ds gets populated with a lot of data ... 
....... 
{ 
     my $obj = new Class("data"=>$hash); 
....... 
....... 
...... 

} 

#even undefing the $hash 
undef $hash; 

# I can expect some improvement in Memory Utilization, but its not happening 

penso che sto facendo alcuni errori molto semplici. Qualcuno può suggerire?

Answer 1

In generale, la gestione della memoria Perl fa quello che devi fare, e non è necessario preoccuparsi a questo proposito. Ad esempio, qual è il danno di tenere una grande quantità di memoria allocata per il resto del programma? Probabilmente nessuno. Perl sarà rilasciarlo se il sistema operativo è in pericolo di esaurimento della memoria.

Supponiamo di avere un caso particolare, come uno script che viene eseguito costantemente in background, ma che occasionalmente deve eseguire un'attività che richiede molta memoria. Puoi risolvere questo problema separandolo in due script: background.pl e memory-intensive-task.pl. Il background.pl eseguirà memory-intensive-task.pl quando necessario. La memoria verrebbe liberata al completamento e all'uscita di questo programma.

Answer 2

Non è possibile restituire effettivamente la memoria al sistema operativo. Perl di solito lo manterrà per ridistribuirlo in seguito, anche se occasionalmente lo raccoglierà.

Vedi http://learn.perl.org/faq/perlfaq3.html#How-can-I-free-an-array-or-hash-so-my-program-shrinks-

e

http://clokwork.net/2012/02/12/memory-management-in-perl/