Besserer "Abfrage"-Code

[Marian]

Hallo Pot,

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

Für Schleifen, die in jedem Fall mindestens ein Mal durchlaufen werden müssen, nimmt man eher eine do...while/until-Schleife.
Außerdem würde ich bei einer falschen Eingabe eine Fehlermeldung ausgeben.

Viele Grüße aus Freiburg,
Marian