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: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |