Hallo!
Muss mal die Spezi´s hier fragen. Ich hab folgendes Problem bei der Programmierung eines Spiels in Perl:
Ich hab mehrere Subroutinen mit z. B.
if ($a eq $eigabe) {print "Knocked out";}
untereinander stehen.
Ich möchte aber nach der Ausgabe zurück an den Start des Programms.
return Zeile wie in Basic (was ich beherrsche) gibt es in Perl nicht und goto soll nicht verwendet werden.
Wenn ich aber redo eingebe, prüft er nur die jeweilige if-Zeile.
Der Spung soll aber an den Anfang des Programms gehen, wo zur Eingabe
aufgefordert wird.
Das Programms soll nach den ganzen if-Subroutinen
nicht einfach so enden, sondern es soll nachgefragt werden,
ob weiter gespielt wird.
Sofern mit ja geantwortet wird, soll an den Anfang des Programms zurück gesprungen werden.
Wie realisiere ich das oder wer kann mir dafür ne gescheite do- (oder while-Schleife) basteln?
Di e Lösung liegt vielleicht schon vor mit, nur komm ich nicht dahinter.
Danke!
Muss mal die Spezi´s hier fragen. Ich hab folgendes Problem bei der Programmierung eines Spiels in Perl:
Ich hab mehrere Subroutinen mit z. B.
if ($a eq $eigabe) {print "Knocked out";}
untereinander stehen.
Ich möchte aber nach der Ausgabe zurück an den Start des Programms.
return Zeile wie in Basic (was ich beherrsche) gibt es in Perl nicht und goto soll nicht verwendet werden.
Wenn ich aber redo eingebe, prüft er nur die jeweilige if-Zeile.
Der Spung soll aber an den Anfang des Programms gehen, wo zur Eingabe
aufgefordert wird.
Das Programms soll nach den ganzen if-Subroutinen
nicht einfach so enden, sondern es soll nachgefragt werden,
ob weiter gespielt wird.
Sofern mit ja geantwortet wird, soll an den Anfang des Programms zurück gesprungen werden.
Wie realisiere ich das oder wer kann mir dafür ne gescheite do- (oder while-Schleife) basteln?
Di e Lösung liegt vielleicht schon vor mit, nur komm ich nicht dahinter.
Danke!