O'Reilly logo

Einführung in Perl, Sixth Edition by brian d foy, Tom Phoenix, Randal L. Schwartz

Stay ahead with the world's most comprehensive technology and business learning platform.

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, tutorials, and more.

Start Free Trial

No credit card required

Lösungen zu den Übungen in Kapitel 15

  1. Hier sehen Sie eine Möglichkeit, das Programm zum Erraten der Zahlen aus Kapitel 10 neu zu schreiben. Wir benutzen keine intelligenten Vergleiche, sondern given:

    use 5.010;
    
    my $Debug = $ENV{DEBUG} // 1;
    
    my $geheimzahl = int(1 + rand 100);
    
    say 'Nicht weitersagen. Die Geheimzahl ist $geheimzahl.'
        if $Debug;
    
    SCHLEIFE: {
    
        print 'Bitte geben Sie eine Zahl zwischen 1 und 100 ein: ';
        chomp(my $versuch = <STDIN>);
    
        my $gefunden = 0;
    
        given( $versuch ) {
            when( ! /^\d+$/ )        { say "Keine Zahl!" }
            when( $_ > $geheimzahl ) { say 'Zu groß!' }
            when( $_ < $geheimzahl ) { say 'Zu klein!'   }
            default                  { say 'Genau richtig!'; $gefunden++ }
            }
    
        last SCHLEIFE if $gefunden;
        redo SCHLEIFE;
    }
        redo SCHLEIFE;

    Im ersten when-Block überprüfen wir, ...

With Safari, you learn the way you learn best. Get unlimited access to videos, live online training, learning paths, books, interactive tutorials, and more.

Start Free Trial

No credit card required