sybperl-l Archive

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

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]");
        }
}