Thread Inputbox Perl (2 answers)
Opened by Sade J at 2010-10-13 11:10

Gast Sade J
 2010-10-13 11:10
#141854 #141854
Hallo zusammen

Ich hab folgendes problem:
Ich habe ein Perl script geschrieben, in welches ich die zwei Variable $a und $b eingeben kann. Das Programm rechnet nun $a^$b aus.

Dies Funktioniert einwandfrei.

Allerdings moechte ich jetzt dieses programm grafisch mit HTML darstellen.
Leider krieg ich es nicht hin, ein Inputfeld zu erstellen, in welches man nun
die Variablen einfuegen kann.

Koennte mir jemand sagen was ich eingeben oder vielleicht aendern muss?
waere um jede hilfe dankbar!!

Hier mein script:

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

#!/usr/bin/perl -w


use CGI::Carp qw(fatalsToBrowser);

print "content-type: text/html \n\n"; #The header
my $HTML = "myhtml.html";
open (HTML) ;
my @fileinput = <HTML>;



my $z = "<p>Bitte Geben sie die gewünschte Zahl ein:</p>";
print "$z";

# Hier sollte man die Variable $a eingeben koennen.


my $zz = "<p>Und hier bitte die Potenz:</p>";
print "$zz";

#Und hier die Variable $b


my $c = $a;

if ($b == 0) {
print "Lösung = 1 \n";
exit;
}
else {

if ($b >= 0) {

for (my $i = 1;$i <= $b - 1;$i = $i + 1) {
        $a = $a * $c;
}
}
else {

$a = 1/$a;
$c = 1/$c;

for (my $j = -1;$j >= $b + 1;$j = $j - 1){

        $a = $a * $c;
}
}
}
print "Lösung =",$a,"\n";

close (HTML)



Gruss Sade J

mod-edit pq: perl-tags hinzugefügt
Last edited: 2010-10-13 11:29:29 +0200 (CEST)

View full thread Inputbox Perl