#!c:/Perl/bin/perl -w use strict; use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); use DBI; my $DBH; my $STH; my $CGI; my $antwort; $CGI = new CGI(); ##Suche oder Eintrag## if ($CGI->param("suchanfrage")){    suche($CGI,$DBH,$STH);    } #Start Subroutine Suche sub suche {           my $nachname = param("nachname");           my $abteilung = param("abt");           $DBH = DBI->connect("DBI:CSV:db_mitarbeiter=c:/apachefriends/xampp/htdocs/cgi-bin")           or die "Konnte keine Verbindung zur Datenbank herstellen:$!";           $STH = $DBH->prepare("SELECT * FROM db_mitarbeiter           WHERE Nachname = '$nachname' AND Abteilung = '$abteilung'")           or die "Konnte SQL-Statement nicht bereitstellen:$!";           $STH->execute()           or die "Ausfuehren nicht moeglich:$!"; #Treffer if ($STH->rows != 0){ print < Antwort

Suchergebnis

HERE_TEXT1 my @data; while (@data = $STH->fetchrow_array()) { my $familienname = $data[0]; my $vorname = $data[1]; my $abt = $data[2]; my $telefon = $data[3]; print qq§\n\n \n\n\n\n§; } print qq§
Familienname: Vorname: Abteilung: Telefon:
$familienname$vorname$abt$telefon
\n

Neue Suche

\n
\n
\n\n§; } ##Keine Treffer else { print < Antwort

Leider brachte die Suche nach '$nachname' keine Ergebnisse!

Neue Suche!

HERE_TEXT2 } $STH->finish(); $DBH->disconnect;} ##Ende Subroutine Suche #Start Subroutine Eintragen sub eintragen{ my ($nachname, $vorname, $abt, $telefon)=(param('nachname'), param('vorname'), param('abt'),param('telefon')); $DBH = DBI->connect("DBI:CSV:db_mitarbeiter=c:/apachefriends/xampp/htdocs/cgi-bin") or die "Konnte keine Verbindung zur Datenbank herstellen:$!"; $STH = $DBH->do("INSERT INTO db_mitarbeiter VALUES ('$nachname','$vorname','$abt','$telefon')") or die "Konnte SQL-Staement nicht bereitstellen:$!"; print < Antwort

Datenbankeintrag:

$nachname,$vorname, $abt, $telefon

Neuer Eintrag!

HERE_TEXT3 $DBH->disconnect; } #Ende