Honza Pazdziora wrote:
> On Wed, May 02, 2001 at 06:18:08PM -0400, Phillip Perkins wrote:
> > Tried that...no good. Still took 43 seconds, I think. I've watched it zip
> > through all the records until it gets to the end where fetch returns undef, and
> > that seems to be taking a while.
> >
> > I kinda' thought that it might be the connection, too, but obviously that's not
> > the deal.
>
> OK, let's summarize:
>
> You have a .dbf file (no memo files?) with cca 900 records, you do
>
> my $sth = $dbh->prepare(q!
> select * from file
> !);
> $sth->execute;
> while (my $data = $sth->fetchrow_arrayref) {
> }
>
> and you get those 900 records in reasonable amount of time (seconds).
> But the next (last) fetch call that just returns undef takes 20
> seconds itself. Do I get the situation right?
>
The table itself has a little more than 3000 records and returns only 900 from the
query. I actually went through the mod code to see what the deal was and found out
that the mod doesn't actually return records once it executes the query. What
happens is that when you do the fetch, the mod reads each record sequentially until
it finds a record that matches the description. So every successive fetch is gonna'
have a time lapse between each record returned. So my problem wasn't that it took so
long to reach an undef state, it just took forever for the mod to reach EOF on the
DBF file.
My best option at this point is to sweat it out until I can modify the mod code.
Thanks for everybody's help.
Phillip
>
> --
> ------------------------------------------------------------------------
> Honza Pazdziora | [EMAIL PROTECTED] | http://www.fi.muni.cz/~adelton/
> .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, DBD::XBase.
> ------------------------------------------------------------------------