Thread CGI-Taschenrechner (43 answers)
Opened by Michael47 at 2016-01-22 13:26

GwenDragon
 2016-01-22 15:17
#183576 #183576
User since
2005-01-17
14784 Artikel
Admin1
[Homepage]
user image
Ich erbarme mich.
Folgendes CGI-Perl-Programm beinhaltet einiges.
Du musst noch für andere Operatoren erweitern und das HTML ein bisschen patchen.
Den Rest kannst du bestimmt. ;)

Du kannst das Programm als Taschenrechner.pl speichern. Es erstellt sowohl das Formular, berechnet und gibt auch Ergebnis aus.

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

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 '*';
  # und weitere .... wie für * nur mit anderem Operator hier einfügen
  
  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


Editiert von GwenDragon: fehlendes Semicolon gefixt
Last edited: 2016-01-23 11:17:57 +0100 (CET)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View full thread CGI-Taschenrechner