Hide Zen home . ... dbh ); my $sql = "select pgc,objname, id from ledasn_ell order by id limit 10;"; my $sth=$dbh->prepare($sql) || die "Couldn't prepare \'$sql\' $!\n"; if ( $sth->execute() ) { while ( defined ( my $r=$sth->fetchrow_hashref ) ) { foreach my $key (keys %$r ) { print "$key => $r->{$key} "; } print "\n"; } } $sth->finish if $sth; . ... dbh ); my $sql = "select pgc,objname, id from ledasn_ell where id ~ ? ... Last edited 2006-02-16 09:24 UTC by megera (diff) . ... Zen, 2003-2007 ...