#!/usr/bin/perl

use strict;

use DBI;

system("clear");

my ($datenbank, $datenbankhost, $datenbankuser, $datenbankpw);

my ($dbh, $sql, $sth);

my (@ergebnis);

# Datenbank

$datenbank = "info";

# Datenbankhost

$datenbankhost = "localhost";

# Datenbankusername

$datenbankuser = "root";

# Datenbankpasswort

$datenbankpw = "";

$dbh = DBI->connect("DBI:mysql:$datenbank:$datenbankhost","$datenbankuser","$datenbankpw")

|| scripterror ("Fehler bei der Datenbankverbindung aufgetreten.");

$sql = qq{select * from hasbergen where Name = "Mustermann"};

$sth = $dbh->prepare( $sql );

$sth->execute();

while(@ergebnis = $sth->fetchrow_array){

format STDOUT =
@<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<< @<<<<<<<<<<<< @<<<<<<<< @<<<<<<<<<<<<
$ergebnis[0], $ergebnis[1], $ergebnis[2], $ergebnis[3], $ergebnis[4], $ergebnis[5], $ergebnis[6], $ergebnis[7]
.
write;

}

print " \n";

$sth->finish();

$dbh->disconnect();