my $config = Config->new(config_file => "config.xml", debug=>0);
$bd = db_out->new ($config->{db_data});
while (1) {
$records = $bd->stack_out_get(0);
if(defined($records)) {
while (($key,$msg)= each %$msg ){
process_msg($bd,$msg);
}
}
}
In reply to Re: Re: Perl memory Memory consumption
by alfatux
in thread Perl memory Memory consumption
by alfatux
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |