Re: Re: Re: Perl memory Memory consumption

[orkysoft]

Does the program grow if you leave out that process_msg subroutine call?

Also, use strict and my variables where possible, and don't make circular references like $a = \$b; $b = \$a;, or they'll never really get out of scope (they might go out of scope and be unreachable, but since they refer to eachother, they'll never go away)

[alfatux]

Hi,

No, with process_msg the program not gows.

I've investigating more an I detect that the problem could be in the get_msg funtion that looks like:

sub get_msg {


  my $self = shift;


  my ($param) = @_;


  my $consulta_stack = qq{


                         SELECT *


                         FROM out


                         WHERE app = $param


                         ORDER BY id DESC LIMIT 100;


                        };


  my $sth = $self->{dbh}->prepare($consulta_stack);


  $sth->execute();


  my $msgs = $sth->fetchall_hashref('id');


  $sth->finish;


  return $msgs;


}

I also observ that when there's no record in the resultset memory consumption is highter than when there's sontehing.