http://www.perlmonks.org?node_id=416128


in reply to Perl MySql

Updated:
Try to fetch all results and then store them into file:
#select the fields from the database $dbh = gsm::connect (); $sth=$dbh->prepare ("select * from meetings order by meetings.id"); $sth->execute (); my $results = $sth->fetchall_arrayref(); #cleanup $sth->finish; $dbh->disconnect(); open SAVE, '/some/file' or die "Cannot open file:$!"; #process the columns received, one at a time for my $row (@$results) { print SAVE join("\t", @$row)."\n"; } close SAVE;
Also, you can use module "Time::HiRes" to see when do you have a bottle-neck.

---
Michael Stepanov aka nite_man

It's only my opinion and it doesn't have pretensions of absoluteness!