Markus Trusk: MYSQL PROBLEME

Beitrag lesen

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.