|
Dave K |
at Dec 18, 2002 at 6:56 pm
|
⇧ |
| |
Environment WinNt, Perl v5.6.1
code
while (1) {
$dbh = DBI->connect($orcs, $uname, $passw,
{
RaiseError => 0,
PrintError => 0,
AutoCommit => 0
}) or dberr("C");
$conn_count++;
sleep 2;
$dbh->disconnect;
undef $dbh;
sleep 8;
last if $conn_count > 10; # 100 sec total
}
No mem leak, moderate usage. What are you using this script for? (just
curious, private email ok)
HTH
David
"Bixia Zhou" <bzhou@siemens-emis.com> wrote in message
news:8A262440158002458980405B1A7E2F5C02070F3C@bpkn001e.empros.com...
We are currently using: perl, v5.8.0 built for MSWin32-x86-multi-thread
The test code as following:
my $process = 1;
while ($process){
my $dbh = DBI->connect('dbi:Oracle:sid', $user, $pass, { AutoCommit => 0
});
if ($dbh =~ /ERR/)
{
exit;
}
$dbh->disconnect;
undef $dbh;
sleep(10);
}
The memory usage starts at 9mb and keeps up. Anybody notices this before?
and has a solution?
Thanks