Hola, estoy teniendo problemas con un pl que hace de servidor de peticiones, cuantas más hace más memoria ocupa y no encuentro la forma de liberar la memoria que va usando, por ejemplo:
$i=0;
my @vector=();
while($i<500000){
push(@vector,'vicente');
$i++;
}
print="@vector";
@vector=();
map { undef $$_; } @vector;
Aquí relleno un vector y cuantos más registros más memoria usa, pero ¿cómo se puede ir liberando en Perl la memoria que usa un pl? ...