Opened by MartinR at 2005-08-28 12:45
User since
2005-08-28
20 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-08-28
20 Artikel
BenutzerIn
Hi,
Danke für Dein Skript, es hat prima funktioniert!!!
Habe nun ein weiteres Problem, bei dem ich nicht weiter komme.
Folgende Aufgabe wird gestellt:
Schreiben Sie ein PERL-Skript, welches ein Menü mit vier Verzweigungen anzeigt. Bei der Wahl der ersten drei Optionen sollen mit der Eingabe des "Users" jeweils verschiedene Rechenoperationen ausgeführt und das Ergebnis ausgegeben werden. Das Skript soll über die vierte Option beendet werden können.
So weit bin ich gekommen, aber es funktioniert nicht wie gewollt. Es wird nichts berechnet.
Hast Du einen Hinweis, wo dieser Fehler zu suchen ist, bzw. das Skript falsch geschrieben wurde? Ich quäle mich schon seid 2 Tagen und komme einfach nicht drauf.
Gruß und danke!!!
Jojo
edit pq: code-tags repariert\n\n
<!--EDIT|pq|1125963145-->
Danke für Dein Skript, es hat prima funktioniert!!!
Habe nun ein weiteres Problem, bei dem ich nicht weiter komme.
Folgende Aufgabe wird gestellt:
Schreiben Sie ein PERL-Skript, welches ein Menü mit vier Verzweigungen anzeigt. Bei der Wahl der ersten drei Optionen sollen mit der Eingabe des "Users" jeweils verschiedene Rechenoperationen ausgeführt und das Ergebnis ausgegeben werden. Das Skript soll über die vierte Option beendet werden können.
So weit bin ich gekommen, aber es funktioniert nicht wie gewollt. Es wird nichts berechnet.
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
print <<HERE_TEXT;
addieren <1>
multiplizieren <2>
subtrahieren <3>
beenden <4>
HERE_TEXT
$ergebnis = 0;
$addieren = 0;
$multiplizieren = 0;
$subtrahieren = 0;
chomp ($eingabe = <STDIN>);
if ($eingabe = 1)
{
print "Bitte geben Sie zwei Zahlen ein:\n;
chomp ($zahlen = <STDIN>);
$addieren=$addieren;
print ("Ergebnis der Addition\n";$eingabe);
}
if ($eingabe = 2)
{
print "Bitte geben Sie zwei Zahlen ein:\n;
chomp ($zahlen = <STDIN>);
$multiplizieren=$multiplizieren;
print ("Ergebnis der Multiplikation\n",$eingabe),
}
if ($eingabe = 3)
{
print "Bitte geben Sie zwei Zahlen ein:\n;
chomp ($zahlen = <STDIN>);
$subtrahieren=$subtrahieren;
print ("Ergebnis der Subtraktion\n",$eingabe);
}
if ($eingabe = 4)
{
print "Das Skript wird beendet.\n";
}
Hast Du einen Hinweis, wo dieser Fehler zu suchen ist, bzw. das Skript falsch geschrieben wurde? Ich quäle mich schon seid 2 Tagen und komme einfach nicht drauf.
Gruß und danke!!!
Jojo
edit pq: code-tags repariert\n\n
<!--EDIT|pq|1125963145-->