Ich hab ein Html Formular und möchte Daten in eine CSV-Datei schreiben und auslesen. Leider bekomme ich nur eine Fehlermeldung über den vorzeitigen Abbruch des Perl-Scripts. Kann jemand helfen?
#!d:/Internet/Perl/bin/perl -w
# Aufruf des CGI-Moduls.
use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;
# Definition der globalen Variablen.
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 der Subroutine Suche.
sub suche{
my $nachname = param("nachname");
my $abteilung = param("abt");
$DBH = DBI-\>connect("DBI:CSV:db\_mitarbeiter=e:/Websites/cgi-bin")
or die "Konnte Verbindung zur DB nicht herstellen:blush:!";
$STH = $DBH-\>prepare("SELECT \* FROM db\_mitarbeiter WHERE Nachname = '$nachname' AND Abteilung = '$abteilung' ")
or die "Konnte SQL-Statement nicht bereitstellen:blush:!";
$STH-\> execute()
or die "Ausführen nicht möglich:blush:!";
# Treffer.
if ($STH-\>rows != 0){
print
Antwort
Suchergebnis:
**Familienname:**
**Vorname:**
**Abteilung:**
**Telefon:**
HERE\_TEXT1
my @data;
while (@data = $STH-\>fetchrow\_array()) {
my $familienname = $data[0];
my $vorname = $data[1];
my $abteilung = $data[2];
my $telefon = $data[3];
print qq§\n **$familienname** \n $vorname\n$abt\n$telefon\n\n§;
}
print qq§\n [Neue Suche!](%255C%2522../formular1.html%255C%2522) \n\n\n
