Hola,
also ich beschäftige mich auch erst seit kurzem mit Datenbanken, und dieses Beispiel hier funktioniert auf jeden Fall:
#!/usr/bin/perl -w
use DBI;
use CGI::Carp qw(fatalsToBrowser);
use strict;
my $database = 'xxxxxxxx';
my $dbserver = 'xxxxxx';
my $user = 'xxxxxxxx';
my $pass = 'xxxxxxx';
my $dbh = DBI->connect("DBI:mysql:$database:$dbserver", $user, $pass, {AutoCommit => 0}) or die "Cant connect : $!\n";
my $auslesen = $dbh->prepare("SELECT * FROM haupttabelle") or die "Cant auslesen : $!\n";
$auslesen->execute;
print "Content-type:text/html\n\n";
while (my($vorname,$nachname) = $auslesen->fetchrow_array) {
print "$vorname $nachname <br>\n";
}
$auslesen->finish;
$dbh->disconnect;
Lies vielleicht nochmal in der Doku zum Modul nach, weil dieses list_fields habe ich vorher auch noch nie gelesen.
(http://search.cpan.org/~timb/DBI-1.40/DBI.pm)
Markus Trusk.