So, als Beispiel habe ich deinen Code mal etwas angepasst und in zwei Phasen aufgeteilt wie ich es oben beschrieben habe. Natürlich ist es möglich die Ausgabe erneut mit dem Formular zu verbinden, so das die strikte Trennung nicht unbedingt nötig ist.
Dein HTML ist leider auch alles andere als konform zu den Standards. Unter
http://de.selfhtml.org findest du eine hervorragende deutschsprachige Doku.
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
64
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
my $cgi = new CGI;
if ($cgi->param('action')) {
my $input1 = $cgi->param('Eingabe1');
my $input2 = $cgi->param('Eingabe2');
print $cgi->header(), qq(
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta name="generator" content=
"HTML Tidy for Mac OS X (vers 1st February 2005), see www.w3.org">
<title></title>
</head>
<body bgcolor='#CCCCFF'>
<br>
<center>
<h1>Mein Programm</h1>
</center>
<br>
Letzte Eingabe: $input1<br>
<br>
Letzte Eingabe: $input2<br>
</body>
</html>
);
} else {
print $cgi->header(), q(
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta name="generator" content=
"HTML Tidy for Mac OS X (vers 1st February 2005), see www.w3.org">
<title></title>
</head>
<body bgcolor='#CCCCFF'>
<br>
<center>
<h1>Mein Programm</h1>
</center>
<br>
<center><br>
Bitte geben Sie die AZ ein:<br>
<form action='' method="get"><input name='Eingabe1' size='9'
maxlength='10'><br>
Bitte aunum eingeben<br>
<input name='Eingabe2' size='3' maxlength='4'><br>
<br>
<table>
<tr>
<td colspan='2'><input type='submit' name='action' value='ja'
style='width:100'></td>
</tr>
</table>
</form>
</center>
</body>
</html>);
}
EDIT1: HTML mit Tidy überarbeitet.\n\n
<!--EDIT|Ronnie|1118912576-->