Opened by Gast at 2006-12-25 15:50
Hallo zusammen
Ich bin zum ersten mal in diesem Forum. Ich konnte mein Problem jedoch nicht als bereits gestellte Frage finden, deshalb poste ich hier nun mein Problem, in der Hoffnung mir kann geholfen werden =) ..
Ich hab folgendes Programm geschrieben (mit Perl natürlich, ps: ich bin Anfänger, deshalb ist es mit sehr einfachen Mitteln aufgebaut) Das Programm soll ein Feld aus Punkten mit z zeilen und s spalten ausgeben, wobei an der Stelle (1/1) ein * sein soll (dies hat soweit geklappt). Später sollte dann der User wie durch ein Spiel mittels Eingabe den Stern steuern können (daran arbeite ich noch), doch mein Problem ist nun folgendes: ich kann die Eingabe des Users nur als numerische Variable einfangen, jedoch nicht als "q" oder "o" (dies wäre mein Ziel, dass der User nicht 5, sondern q eingeben kann, damit das Programm beendet wird). Schreibe ich jedoch (if ($befehl == q) oder if($befehl == "q") gibt er eine Fehlermeldung zurück (no numeric ... oder so was ähnliches):
Ps: ich arbeite auf eine WinXP rechner (falls dies eine Rolle spielt)
Herzlichen Dank für die Hilfe!
Gruss
von Sigibe =)
Ich bin zum ersten mal in diesem Forum. Ich konnte mein Problem jedoch nicht als bereits gestellte Frage finden, deshalb poste ich hier nun mein Problem, in der Hoffnung mir kann geholfen werden =) ..
Ich hab folgendes Programm geschrieben (mit Perl natürlich, ps: ich bin Anfänger, deshalb ist es mit sehr einfachen Mitteln aufgebaut) Das Programm soll ein Feld aus Punkten mit z zeilen und s spalten ausgeben, wobei an der Stelle (1/1) ein * sein soll (dies hat soweit geklappt). Später sollte dann der User wie durch ein Spiel mittels Eingabe den Stern steuern können (daran arbeite ich noch), doch mein Problem ist nun folgendes: ich kann die Eingabe des Users nur als numerische Variable einfangen, jedoch nicht als "q" oder "o" (dies wäre mein Ziel, dass der User nicht 5, sondern q eingeben kann, damit das Programm beendet wird). Schreibe ich jedoch (if ($befehl == q) oder if($befehl == "q") gibt er eine Fehlermeldung zurück (no numeric ... oder so was ähnliches):
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
52
53
54
55
56
57
#!perl -w
use strict;
use warnings;
#Zeilen und Spaltenzahl wird durch den User definiert:
my $z;
print "Breite?";
$z = <STDIN>;
my $s;
print "Hoehe?";
$s = <STDIN>;
my $test;
$test = 1;
do
{
$b = 1;
while ($b <= $s)
{
$a = 1;
while ($a <= $z)
{
if ($a == 1 and $b == 1)
{
print "* ";
}
else
{
print ". ";
}
$a++
}
print "\n";
$b++
}
my $befehl;
print "Befehl? (1=Nord,2=Ost,3=Sued,4=West,5=Quit)";
$befehl = <STDIN>;
if ($befehl == 5)
{
print "Programm wurde beendet";
$test++;
}
elsif ($befehl == 1 or 2 or 3 or 4)
{
print "ok";
}
}
while ($test == 1)
Ps: ich arbeite auf eine WinXP rechner (falls dies eine Rolle spielt)
Herzlichen Dank für die Hilfe!
Gruss
von Sigibe =)