#!f:/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); } elsif($CGI->param("eintrag")){ eintragen($CGI, $DBH, $STH); } ### Start Subroutine Suche ### sub suche{ my $name = param("name"); my $kundennummer = param("kundennummer"); $DBH = DBI->connect("DBI:CSV:Kunden=f:/Apache2/cgi-bin") or die "Konnte keine Verbindung zur Datenbank herstellen:$!"; $STH = $DBH->prepare("SELECT * FROM Kunden WHERE Name = '$name' AND Kundennummer = '$kundennummer' ") 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 $name = $data[0]; my $kundennummer = $data[1]; my $adresse = $data[2]; my $telefonnummer = $data[3]; print qq§\n\n\n\n\n\n§; } ### Keine Treffer ### else { print < Antwort

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

Neue Suche!

HERE_TEXT2 } $STH->finish(); $DBH->disconnect; } ### Ende Subroutine Suche ###

Name:	Kundennummer:	Adresse:	Telefonnummer:
$name	$kundennummer	$adresse	$telefonnummer