第10章 さまざまな制御構造 練習問題

1. 数あてゲームを作る

10章は練習問題はこれだけです。Cで言うcontinueがnext、breakがlastね。

use strict;

my $seacret = int (1 + rand 100);

while (1) {
    print "Enter your answer: ";
    chomp(my $ans = <STDIN>);

    if ($ans eq "exit" or $ans eq "quit" or $ans eq "") {
        print "End...\n";
        last;
    } elsif ($ans == $seacret) {
        print "Yeah! You got it!\n";
        last;
    } elsif ($ans > $seacret) {
        print "Too high\n";
    } elsif ($ans < $seacret) {
        print "Too low\n";
    } else {
        next;
    }
}

exitやquitを判定する条件式は一番始めにもってきます。でないと、quitみたいな文字列が入力されたときに、文字列と数値の比較が行われてしまってうまく動かない。この条件式は、正規表現を書いた方がよりPerl的だったなー。

/exit|quit|^\s*$/i

解答ではこんなノリの正規表現を使用していました。