Besserer "Abfrage"-Code

[Pot]

Moin,

Keine Vorgefertigte Lösung, aber ein Denkansatz, wie man das ganze besser Algorithmieren könnte.

Mehr habe ich auch nicht erwartet ;-)

Packe die Schleife doch nur um die Eingabe selbst, und formuliere die korrekte Eingabe als Abbruchsbedingung dafür. Und erst wenn eine korrekte Eingabe sichergestellt ist, wertest du diese nach der Schleife aus.

Also wieder eine Endlosschleife? Da ich Perl in der shebang mit dem Argument -w aufrufe, meckert das liebe Perl wegen der Endlosschleife ^^
Aber danke für deine Idee.. die hat mich auf soetwas gebracht:

print("Frage\n");
$antwort="undef";
until($antwort eq "j" || $antwort eq "J" || $antwort eq "n" || $antwort eq "N")
{
    $antwort = <STDIN>;
    chop $antwort;
}
do_something();

War das in deinem Sinne?
Noch eine Frage nebenbei: Ist es Möglich, mit if auch case-insensitive zu testen? Dann entfällt dieses lästige Prüfen auf j,J,n,N

Danke,
Pot