Perl Script erst nach aufforderung beenden - #65898 (Allgemeines zu Perl)

krusty

2006-05-10 15:37

User since
2006-01-27
91 Artikel
BenutzerIn
[default_avatar]

Habe schon wieder ein Problem mit den Regulären Ausdrücken. Irgendwie ist das nicht meines. Will jetzt noch eine Benutzereingabe prüfen. Dieses mal sollen nur die beiden Eingaben 27 und 28 gültig sein. Habe dazu folgendes nach dem Muster von AndreasM gemacht:

Code: (dl )

my $mask=0;
while (($mask != "27") || ($mask != "28"))
{
        print "Enter right netmask. Only 27 or 28\nNetmask: ";
        $mask = <STDIN>;
        chomp $mask;
        if (($mask != "27") || ($mask != "28")){print "Wrong netmask.\n"}
}

Leider läuft die Schleife nur noch, nimmt weder 27 noch 28 an.\n\n