Opened by Michael47 at 2016-01-24 13:44
User since
2016-01-22
53 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2016-01-22
53 Artikel
BenutzerIn
Hallo Leute. Ich bin schon wieder da. Ich soll ein Taschenrechner-Skript mit einer CGI-Bibliothek umbauen. Das Skript vom TR ist ja schon vorhanden. Ich steh total am Schlauch wie ich anfangen soll. Ich bin ja noch Anfänger und natürlich nicht so viel Ahnung. Vielleicht kann mir wer helfen.
Hier mal der Code:
Last edited: 2016-01-24 14:39:29 +0100 (CET)
Hier mal der Code:
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
42
43
44
45
46
47
48
49
50
51
#!C:\Perl64\bin\perl.exe -w
use strict;
use warnings;
use CGI ();
my $cgi = CGI::new;
my $zahl1 = $cgi->param('Zahl1');
my $zahl2 = $cgi->param('Zahl2');
my $operator = $cgi->param('Rechenart');
my $ergebnis;
print $cgi->header();
print <<HTML;
<html>
<body>
HTML
if (length($zahl1) and length($zahl2) and length($operator)) {
$ergebnis = 'NaN';
# berechne je nach Operator
$ergebnis = $zahl1 + $zahl2 if $operator eq '+';
$ergebnis = $zahl1 - $zahl2 if $operator eq '-';
$ergebnis = $zahl1 * $zahl2 if $operator eq '*';
$ergebnis = $zahl1 / $zahl2 if $operator eq '/';
$ergebnis = $zahl1 % $zahl2 if $operator eq '%';
$ergebnis = $zahl1 ** $zahl2 if $operator eq '**';
print "<p>Das Ergebnis von $zahl1 $operator $zahl2 ist $ergebnis</p>";
}
else {
print <<HTML;
<form action="#" method="post">
<p>Zahl 1: <input size="4" maxlength="3" name="Zahl1">
<br>
Zahl 2: <input size="4" maxlength="3" name="Zahl2">
<br>
Rechenart: <input size="2" maxlength="3" name="Rechenart">
<br>
<input type="SUBMIT" value="Berechnen">
</p>
</form>
HTML
}
print <<HTML;
</body>
</html>
HTML
Last edited: 2016-01-24 14:39:29 +0100 (CET)