On Wed, 12 Jan 2005 12:24:00 +0200, Octavian Rasnita <[EMAIL PROTECTED]> wrote:
> The program:
>
> use lib ".";
> use strict;
> use Parse;
>
> my $f = Parse->new;
>
> opendir(DIR, ".");
> my @files = readdir DIR;
> closedir DIR;
>
> foreach my $file(@files) {
> next unless $file =~ /\.xls$/i;
> Here is an example of a program and a perl module that parses a .xls file
> and eats the whole memory.
> I have tried it under Linux and Windows and it has the same problem under
> both OSs, so it has big bugs.
[snip]
> #Insert into database
> my $rapoarte_i = $dbh->prepare("insert ignore into te
{$cod}{$market}{trades}, $f{$cod}{$market}{min52},
$f{$cod}{$market}{max52}, $f{$cod}{$market}{van});
}
}
}
sub DESTROY {
my $self = shift;
undef $self;
#I don't know if this sub helps, or if it is correctly written
}
1;
I can send you a .xls file if you think it will help, but I gues
On Mon, 10 Jan 2005 12:53:50 +0200, Octavian Rasnita <[EMAIL PROTECTED]> wrote:
> Hi,
>
> I have made a perl module object oriented which is something like this:
>
> Then I access the parse() method in another program that feeds the module
> with more Excel files (around 500 files).
>
> After m
From: zentara <[EMAIL PROTECTED]>
> On Mon, 10 Jan 2005 12:53:50 +0200, [EMAIL PROTECTED] (Octavian Rasnita)
> wrote:
>
> >Hi,
> >
> >I have made a perl module object oriented which is something like
> >this:
> >
> >use Spreadsheet::ParseExcel;
> >use DBI;
>
> >Then I access the parse() method in
