#!/Perl/bin/perl

use strict;
use warnings;
use DBI;
use Data::Dumper;

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

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

my $dsn = "dbi:mysql:database=jgeier;host=localhost;port=33066";

my $dbh = DBI->connect($dsn, $user, $password)
    or die "Error connecting to MySQL server: " . DBI->errstr();

my $rows = $dbh->selectall_hashref("SELECT * FROM jgeier.test ORDER BY sid ASC","sid");

#
## Hash Einzeln Ausgeben
#

foreach my $key (sort keys %$rows) {

	print "Key:".$key."\n";

	print "SID:".$$rows{$key}{sid}."\n";

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

}

$dbh->disconnect();

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

exit;