[DBI-users] dbi help

I don't see how this will ever exit since $dbh is a blessed database
handle, not a string.

Try declaring $dbh before you start the loop instead of creating a fresh
copy every time through the loop.

my $process = 1;
my $dbh;
while ( $process ) {
$dbh = DBI -> connect( "dbi:Oracle:$inst", $user, $pass,
{ AutoCommit => 0 } )
or die "Connect to $inst as $user failed: $DBI::errstr";
$dbh -> disconnect;
undef $dbh;
sleep(10);
}

There may be a leak somewhere, but someone else will have to find it. When
I had a perpetual script like this, I had it exit after 24 hours and had a
new copy started every day by the system. That should at least bound the
memory loss.

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" <[email protected]> wrote in message
news:[email protected]...

Look ta the modules you are using - do anyof them use dubly linked lists or
similar perl structures when perls garbage collect fails due to ref counts
never getting to zero?

Often the problem is due to use of HTML or XML parsers where the software does not
'clear' down the parse tree when finished.

Of could this is not a DBI issue but a general perl 'gotcha'.

Jacqui

Jacqui Caren, Ingram Group Ltd. [email protected]
ph: +44 (0) 1483 8628xx main=00 fax=01 ddi=65
http://www.ig.co.uk/ http://www.sitedirector.org/
http://www.perl.co.uk/

Perl 5.8 is known to have memory leaks related to the "stdio" layer.
In UNIX, a workaround is to set the environment variable PERLIO
to have the value "perlio" before invoking perl. This may or
may not be related to your problem. In UNIX (using bash) the
solution is to have an "export PERLIO=perlio" command before
invoking perl.

HTH,
Bill B.