#!/usr/bin/perl -w

use strict;
use DBI;

my $dbh;
my $such_standort = 'Bin';

$dbh = DBI->connect ("DBI:mysql:host=192.168.0.1;database=mitarbeiter",
                     "me", "secret", {PrintError => 0, RaiseError => 1});

&mitarbeiter_suchen();

$dbh->disconnect();
exit(0);

#
# Ab hier: Subroutinen
#

sub mitarbeiter_suchen {
  my $sth = $dbh->prepare ("
  							SELECT mitarbeiter.Nachname, mitarbeiter.Vorname, standorte.Standort, gesellschaften.Gesellschaft
							FROM  mitarbeiter
							JOIN  standorte, gesellschaften
							WHERE mitarbeiter.Standort = standorte.SID
							AND mitarbeiter.Gesellschaft = gesellschaften.GID
							AND (standorte.Standort LIKE '$such_standort%'
							AND mitarbeiter.Nachname LIKE 'Ne%')
                           ");
  $sth->execute();
  while (my ($nachname, $vorname, $standort, $gesellschaft) = $sth->fetchrow_array()) {

    print "$nachname,\t$vorname,\t$standort,\t$gesellschaft\n";

  }
  $sth->finish();
}