perlop "eq" - #114117 (Allgemeines zu Perl)

catweasel

2008-08-30 12:06

User since
2008-08-29
13 Artikel
BenutzerIn
[default_avatar]

Ausgebessert und mit einer "exit"-Abfrage (um mein ursprünliches Problem nicht zu vergessen).
Aber auch bei diesem Konstrukt muss ich die Reihenfolge beachten, wenn ich Fehlermeldungen vermeiden will.
Nochmal ausgebessert (/[\D]/ -> /\D/).

Code (perl): (dl )

#! /usr/bin/perl -w
use strict;
use feature ":5.10";



while () {
        print "\nAuswahl: ";
        chomp( my $aw = <STDIN> );

        given ( $aw ) {
                when ( '' ) {
                        print "Keine Eingabe\n";
                }
                when ( 'exit' ) {
                        exit;
                }
                when ( /\D/ ) {
                        print "Ungültige Eingabe\n";
                }
                when ( 0 ) { 
                        print "0\n"; last
                }
                when ( $_ > 0 and $_ < 11 ) { 
                        print "1-10\n"; last
                }
                when ( $_ >= 11 and $_ < 21 ) {
                        print "11-20\n"; last
                }
                default { 
                        print "Ungültige Eingabe\n";
                }
        }
}