Ergebnisse einer Perl-mySQL-Abfrage bekommen

Arne Buchwald

Erfahrenes Mitglied
Hallo,

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,
 
Zurück