Hallo,
ich bin dabei das Spiel "Hangman" in Perl zu entwickeln.
Bis jetzt sieht mein Code so aus:
Mir gelingt zwar die Prüfung, ob der eingegebene Buchstabe in dem zu erratenen Wort vorkommt. Allerdings weiss ich nicht wie ich es schaffe, dass die schon erratenen Buchstaben in die Variable $ergebnis an die richtige Position geschrieben werden.
Wie stelle ich das an?
Gruß
Radmor
ich bin dabei das Spiel "Hangman" in Perl zu entwickeln.
Bis jetzt sieht mein Code so aus:
Code:
#!/usr/bin/perl -w
@moeglichewoerter = ("Kekse", "Schokolade", "Erdbeere", "Blaubeere");
$anzahl = @moeglichewoerter;
$zufallszahl = rand() * 100 % $anzahl;
$ergebnis = '';
$wort = '';
$eingabe = '';
$wort = $moeglichewoerter[$zufallszahl];
$wortlaenge = length($wort);
#in $ergebnis wird gespeichert, was der Benutzer sieht.
#in $wort das zu erratene Wort.
#Striche erzeugen
for ($i = 0; $i < $wortlaenge;$i++)
{
$ergebnis .= "-";
}
#Raten
do {
#system("cls");
print "Das Wort hat $wortlaenge Buchstaben.\n";
print "\n".$ergebnis."\n";
print "\nGib einen Buchstaben ein: ";
chomp($eingabe = <STDIN>);
#Prüft ob der eingegebene Buchstabe im Wort vorkommt
if ($wort =~ /$eingabe/gi)
{
print "Der Buchstabe kommt vor\n";
}
} while ($wort ne $ergebnis);
Mir gelingt zwar die Prüfung, ob der eingegebene Buchstabe in dem zu erratenen Wort vorkommt. Allerdings weiss ich nicht wie ich es schaffe, dass die schon erratenen Buchstaben in die Variable $ergebnis an die richtige Position geschrieben werden.
Wie stelle ich das an?
Gruß
Radmor