Ønskes der at forsætte dialog?

fandt denne stump kode:

print "Password? ";        # Ask for input
$a = <STDIN>;            # Get input
chop $a;            # Remove the newline at end
while ($a ne "fred")        # While input is wrong...
{
    print "sorry. Again? ";    # Ask again
    $a = <STDIN>;        # Get input again
    chop $a;            # Chop off newline again
}

Men linien:

while ($a ne "fred")

er jeg lidt i tvivl om.. jeg laver den om til

while ($a ne "y")

Fra de gamle assambler dage gætter jeg mig til at "ne" betyder not equal to, men hvordan laver jeg det om til

while ($a ne "y" or "n")

??? Nogen der kan hjælpe?

kan det evt være noget med

$a =~ mønster

?

du kan evt prøve med

while (/y|yes|n|no/i) {


}

det sidste "i" er for case-insensitive

det skal nok være en "if" istedet for "while".

eller

while ($a ne "y" || $a ne "n")

mfalck> Har prøvet alt ovenstående uden held :o/ på forskellige måder.

jeg prøvede lige

while ($a ne "y" && $a ne "n")

og der går den videre hvis man svarer  y eller n

men det er vel kun hvis man svarer ja at den skal fortsætte - ellers skal scriptet blot gå ud ?

ja.

ved Y så forsætter løkken blot og ved n laver jeg en exit();

Jeg afprøver det lige når jeg kommer tilbage om 2 timer. synes ellers jeg havde prøvet med && (det kender jeg jo pra php) men.. jeg prøver igen :)

$a="y";
while ($a eq "y" || $a eq "Y")        # While input is wrong...
{
    print "OK here we go then\nWanna try again? (Y/N)";    # Ask again
    $a = <STDIN>;        # Get input again
    chop $a;            # Chop off newline again
}
print "\n\nNow you got tired? then we exit\n";
exit;

sub are_you_sure {
    print "Are you SURE you want to do this(y/n)? ";
    my $yesno = <STDIN>;
    chomp $yesno;
    if ($yesno =~ /^y$/i || $yesno =~ /^yes$/i) {
        return 1;
    } elsif ($yesno =~ /^n$/i || $yesno =~ /^no$/i) {
        return 0;
    } else {
        my $i = are_you_sure();
        return $i;
    }
}
Så siger du bare inde i dit program
if (are_you_sure()) {
} else {
exit;
}

Så hvis personen svarer y/yes kører den videre, ved n/no slutter den og hvis den ikke kender svaret spørger den bare igen indtil den får noget passende.