#!/Perl/bin/perl

use strict;
use warnings;
use DBI;

my $user = "test";
my $password = "test";


print "--- ANFANG ---\n";

# DSN legt den Treiber, Name der DB, Host und Port fest
my $dsn = "dbi:mysql:database=jgeier;host=localhost;port=33066";

# Der eigentliche Connect mit Benutzer und Passwort
my $dbh = DBI->connect($dsn, $user, $password)
    or die "Error connecting to MySQL server: " . DBI->errstr();

print "[A]\n";
print $dbh."\n";

# Beispiel fuer SELECT
# Die '?' sind Platzhalter, für die 1 und 2 eingesetzt werden
# Sollte man benutzen, um SQL-Injection durch fehlendes Escaping vorzubeugen

# my $rows = $dbh->selectrow_arrayref("SELECT * FROM TABLE jgeier.test", 1, 2);
my $rows = $dbh->selectrow_arrayref("SELECT * FROM jgeier.test");


print "[B]\n";
print $rows."\n";

#
## Über die Ergebniszeilen des SELECTs iterieren...
#

print "[C]\n";

foreach my $row (@$rows) {

	print $row."\n";

}

# Datenbankverbindung abbauen
$dbh->disconnect();

print "--- ENDE ---\n";


exit;