Kevin wrote: > > Thanks for the reply. I have included the result set and some more of the > code. Your help is appreciated. > > > my $dbh = DBI->connect("DBI:XBase:C:/Perl/progs/customer") or die > $DBI::errstr; > my $sth = $dbh->prepare("select ID, First_Name from customer") or die > $dbh->errstr(); > $sth->execute() or die $sth->errstr(); > while (my $row = $sth->fetchrow_hashref()) { > $returned_rows{$row->{'ID'}} = $row; > print Data::Dumper->Dump([$row, $returned_rows], [qw($row > $returned_rows)]); > } > > result: > > $row = { > 'ID'=> '11', > 'First_Name'=> 'Tom' > }; > $returned_rows = undef;
my %returned_rows; # let's predefine returned_rows while (my $row = $sth->fetchrow_hashref()) { $returned_rows{$row->{'ID'}} = $row; # and fix the 2nd arg below to a ref to that hash print Data::Dumper->Dump([$row, \%returned_rows], [qw($row %returned_rows)]); } # or while ... # do the $row here and the returned row after the loop for less output print Data::Dumper->Dump([$row], [qw($row)]); } print Data::Dumper->Dump([\%returned_rows], [qw(%returned_rows)]); -- ,-/- __ _ _ $Bill Luebkert ICQ=14439852 (_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED] / ) /--< o // // http://dbecoll.tripod.com/ (Free site for Perl) -/-' /___/_<_</_</_ Castle of Medieval Myth & Magic http://www.todbe.com/ _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs