PEPPLER.ORG
Michael Peppler
Sybase Consulting
Menu
Home
Sybase on Linux
Install Guide for Sybase on Linux
General Sybase Resources
General Perl Resources
Freeware
Sybperl
Sybase::Simple
DBD::Sybase
BCP Tool
Bug Tracker
Mailing List Archive
Downloads Directory
FAQs
Sybase on Linux FAQ
Sybperl FAQ
Personal
Michael Peppler's resume

sybperl-l Archive

Up    Prev    Next    

From: Shaun McClimon <smcclimon at frontierast dot com>
Subject: FW: Memory leak
Date: Apr 17 1998 9:37PM

Forgot the original select statement that starts it off.  This can
select up to 20000 rows.

$SQL = "select * from ids1db..tESC";

-----Original Message-----
From:	Shaun McClimon 
Sent:	Friday, April 17, 1998 4:33 PM
To:	SYBPERL-L@trln.lib.unc.edu
Subject:	Memory leak

Can someone help me with my code?  This code continues to use memory up
and has gotten as high as 40 megs.  What is going on? 

Shaun

$S = Sybase::CTlib->ct_connect($uid, $passwd, "$server");
$T = Sybase::CTlib->ct_connect($uid, $passwd, "$server");

$S->ct_command(CS_LANG_CMD,"$SQL", CS_NULLTERM,CS_UNUSED);
$S->ct_send();
while ($ret = $S->ct_results($restype) == CS_SUCCEED)
{
        next if (!$S->ct_fetchable($restype));
        while(@dat = $S->ct_fetch) {

$IDS = sprintf 'insert oecs..%s 
                        values ("%s","%s","%s","%s","%s","%s","%s","%s",

"%s","%s",%s,%s,%s,%s,%s,%s,%s,%s,"%s",%s,%s,%s,"%s","%s
")',
                        @dat[24], @dat[0], @dat[1], @dat[2], @dat[3],
@dat[4],
                        @dat[5], @dat[6], @dat[7], @dat[8], @dat[9],
@dat[10],
                        @dat[11], @dat[12], @dat[13], @dat[14],
@dat[15],
                        @dat[16], @dat[17], @dat[18], @dat[19],
@dat[20],
                        @dat[21], @dat[22], @dat[23]
                }
        $ref = $T->ct_sql($IDS);
        $del = $T->ct_sql("delete ids1db..tESC where counter =
@dat[25]");
        }
}