Re: Re: Re: Re: Perl memory Memory consumption

[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.