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.
In reply to Re: Re: Re: Re: Perl memory Memory consumption
by alfatux
in thread Perl memory Memory consumption
by alfatux
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |