Arne Buchwald
Erfahrenes Mitglied
Hallo,
wie kann ich die Ergebnisse, die aus einer mySQL-Select-Abfrage resultieren, herankommen?
Jetzt komme ich nicht weiter. Stehen die Ergebnisse in $success, einem Array bzw. wie kann ich sie auf dem Bildschirm ausgeben?
Die Verbindung zur DB trenne ich dann zum Schluss mit:
Danke,
wie kann ich die Ergebnisse, die aus einer mySQL-Select-Abfrage resultieren, herankommen?
Code:
#!c:/perl/bin/perl.exe
print "Content-type: text/html\n\n";
use DBI;
use strict;
$driver = "mysql";
$database = "busoft";
$hostname = "localhost";
$user = "Admin";
$password = "root";
$dsn = "DBI:$driver:database=$database;host=$hostname;port=$port";
$dbh = DBI->connect($dsn, $user, $password) ||
die "Keine Verbindung zum mySQL-Server: $DBI::errstr\n";
my $statement = "SELECT * FROM bwgast";
my $sth = $dbh->prepare($statement) || die $dbh->errstr;
my $success = $sth->execute() || die $sth->errstr;
Jetzt komme ich nicht weiter. Stehen die Ergebnisse in $success, einem Array bzw. wie kann ich sie auf dem Bildschirm ausgeben?
Code:
my $array_referenz = $sth->fetchrow
print @hash_ref;
Die Verbindung zur DB trenne ich dann zum Schluss mit:
Code:
$sth->finish;
$dbh->disconnect;
Danke,