Re: Re: 5.6->5.8 Analysis

Sorry, forgot to log on before posting my question.

Perl is v5.8.0.
DBD::Oracle::VERSION = '1.14'

I'm mainly looking for something that will just scan the calls and print out a report, just so I have a list of candidates to narrow down my search as to what's broken, like:
'open' behavior has changed, IO internals have been modified
etc.

pseudocode:

open(INF,"<$filename") || die "Couldn't open in file\n";

my $id = 0;
my $data = "";
...
my $statement = $dbh->prepare("insert into data_table values(:1,:2)");

while(<INF>) {
  if (s/^ID:[\s]+//g) {
    $id = lc($_);
  }
  elsif (s/^Data:[\s]+//g) {
    $data = lc($_);
  }
  #repeat for several labels

  $statement->execute($id,$data);

  $id = 0;
  $data = "";
}
[download]

There's several pieces of data that get pulled out and and compared to the data that exists in the table for a given ID, but this should give an idea of what it's doing.

As far as Devel::Leak, no haven't used it before. Will investigate.

I'll try and break down the code to demonstrate the leak, but I have to figure out for certain what's causing it first.

Comment on Re: Re: 5.6->5.8 Analysis Download Code

Replies are listed 'Best First'.
Re^3: 5.6->5.8 Analysis by PotPieMan (Hermit) on Jul 13, 2003 at 14:58 UTC
I seriously doubt that this would cause a memory leak, but that code sample suggests that `$id` and `$data` aren't needed outside the `while` loop. I always try to put variables in the innermost scope that they are needed. --PotPieMan	[reply] [d/l] [select]
Re: Re^3: 5.6->5.8 Analysis by doorslam (Beadle) on Jul 14, 2003 at 13:35 UTC
I'd have thought so too, but the program hangs on one record, and I can bring up top and watch the process start eating memory until the machine hangs.	[reply]


Don't ask to ask, just ask
	PerlMonks