Thread html eingabefeld eingabe per perl in sql db (3 answers)
Opened by bendenn at 2012-06-15 17:18

bendenn
 2012-06-17 21:06
#159099 #159099
User since
2012-06-15
22 Artikel
BenutzerIn
[default_avatar]
Guten Abend.
Danke für die Hilfe Rosti!
Habe lange am Script getüftelt. Leider bekomme ich die Eingabe in die Textarea nicht per print ausgespuckt.

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63

#! 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 = "<li>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 <<EOF;
"Content-type: text/html\n\n";
"<HTML><HEAD><TITLE>FEHLER</TITLE></HEAD>\n";
"<BODY><font face=\"Verdana, Arial\" size=\"2\">\n";
"Beim ausfüllen haben Sie folgendes vergessen:<ol> <b>$fehlermeldung</b>\n";
"</ol><br><br>\n";
"Bitte gehen Sie zurück und versuchen es erneut!\n";
"</font></BODY></HTML>\n";
EOF
exit;
}


gruß Ben

View full thread html eingabefeld eingabe per perl in sql db