#! C:\xampp\perl\bin\perl.exe #use strict; use CGI; #use CGI qw/-no_debug :all/; use CGI::Carp qw(fatalsToBrowser); #my $cgi = new CGI; # baue eine Kontrollstruktur, wo prüft, ob eine Eingabe vorliegt # und dann kriegst Du die Eingaben so: my $comment = CGI::param('Kommentartext'); =Bei einer Eingabe in die html Textarea bekomme ich: Serverfehler! Die Anfrage kann nicht beantwortet werden, da im Server ein interner Fehler aufgetreten ist. Fehlermeldung: Premature end of script headers: comments.pl Sofern Sie dies für eine Fehlfunktion des Servers halten, informieren Sie bitte den Webmaster hierüber. Error 500 localhost 06/17/12 20:45:10 Apache/2.2.21 (Win32) mod_ssl/2.2.21 OpenSSL/1.0.0e PHP/5.3.8 mod_perl/2.0.4 Perl/v5.10.1 ----------------------- Bei keiner Eingabe in Textarea startet sub Ausgabe =cut #print 'Kommentartext '.$comment ; # Fehlerbehandlung $fehlermeldung = "" ; $fehler_gefunden = "" ; # Hier wird nur abgefragt ob denn überhaupt etwas in dem Formularfeld steht $errormeldung = "
  • Das Feld Vorname wurde nicht ausgefüllt.\n" ; if ( $comment eq "") { $fehlermeldung = $fehlermeldung.$errormeldung ; $fehler_gefunden = 1 ; } # Wenn Fehler - dann aufruf der Subroutine if ($fehler_gefunden) { & Ausgabe(); } # Fehlerausgabe sub Ausgabe { print <FEHLER\n"; "\n"; "Beim ausfüllen haben Sie folgendes vergessen:
      $fehlermeldung\n"; "


    \n"; "Bitte gehen Sie zurück und versuchen es erneut!\n"; "    \n"; EOF exit; }