Opened by ofmueller at 2009-02-11 21:59
User since
2006-05-20
533 Artikel
BenutzerIn
2006-05-20
533 Artikel
BenutzerIn
Hallo, also wenn ich den Code so ausführe, bekomme ich keine Fehlermeldung und als Ausgabe halt nichts (oder HTML wenn man die Subroutine aufruft):
P.s.: Dein HTML ist ganz schön kaputt...
EDIT: Huch, hab wegen der 24h-Übersicht gar nicht mitbekommen, dass wir hier über mod_perl & Apache reden... sorry
Code: (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
#!/usr/bin/perl -w
use strict;
use CGI qw(param);
use CGI::CARP qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
my $teste = eingabe_menue();
print $teste if $teste;
sub eingabe_menue {
my $url = 'http://127.0.0.1/cgi-bin/cgi/woerterbuch3.pl';;
print <<"END";
<html>
<head><title>Vokabletrainer</title></head>
<body>
<p>Vokabeltrainer
<p>**************
<p>Menue
<p>1 Vokabeln eingeben
<p>2 Englisch - Deutsch
<p>3 Deutsch - Englisch
<p>4 Programmende
<p>
<form action='$url' method='POST'>
<p>Auswahl:
<input type='text' name='eingabe' value=''>
<input type='submit' name='submit' value='Abschicken'>
</form>
</p>
</body>
</html>
END
my $eing = 0;
if (param()) {
$eing = param('eingabe');
}
return $eing;
}
P.s.: Dein HTML ist ganz schön kaputt...
EDIT: Huch, hab wegen der 24h-Übersicht gar nicht mitbekommen, dass wir hier über mod_perl & Apache reden... sorry
Pörl.