#!d:/Programme/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 $nachname = param("nachname"); my $abteilung = param("abt"); $DBH = DBI->connect("DBI:CSV:Kunden.mdb=c:/Programme/ApacheGroup/Apache/cgi-bin") or die "Konnte keine Verbindung zur Datenbank herstellen:$!"; $STH = $DBH->prepare("SELECT Tabelle1.Kundennummer, Tabelle1.Name, Tabelle1.Telefon, Tabelle2.Rechnungsbetrag FROM Tabelle2 JOIN Tabelle1 WHERE Tabelle2.Kundennummer = Tabelle1.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 $kundennummer = $data[0]; my $adresse = $data[1]; my $name = $data[2]; my $telefonnummer = $data[3]; my $rechnungsbetrag = $data[3]; print qq§\n\n\n\n\n\n§; $DBH->disconnect; }

Kundennummer:	Adresse:	Name:	Telefonnummer:	Rechnungsbetrag:
$kundennummer	$adrese	$name	$telefonnummer