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

初めてのPerl、とりあえず最後まで読めました。あとは練習問題は解いて行こう。平行してCPAN遊びもしたいところ。

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的だったなー。