Perl - さまざまな制御構造(defined-or 演算子「//」)

初めてのPerl 第6版
(オライリージャパン)
Randal L. Schwartz (著) brian d foy (著)
Tom Phoenix (著), 近藤 嘉雪 (翻訳)

開発環境

• OS X Mavericks - Apple(OS)
• BBEdit - Bare Bones Software, Inc., Emacs (Text Editor)
• Perl (プログラミング言語)

初めてのPerl 第6版 (Randal L. Schwartz (著)、brian d foy (著)、Tom Phoenix (著)、近藤 嘉雪 (翻訳)、オライリージャパン)、10章(さまざまな制御構造)の10.11(練習問題)2.を解いてみる。

その他参考書籍

• プログラミングPerl〈VOLUME1〉
• プログラミングPerl〈VOLUME2〉
• Perlクックブック〈VOLUME1〉
• Perlクックブック〈VOLUME2〉

10.11(練習問題)2.

コード(BBEdit, Emacs)

sample234_2.pl

#!/usr/bin/env perl
# use diagnostics;
use strict;
use warnings;
use 5.016;
use utf8;
binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';

my $debug = $ARGV[0] // 1;
my $secret_num = int(1 + rand 100);
my $num;
my $result;

say '秘密の数当てゲーム';
say '1から100までの数を入力してください';
while (1) {
    say "秘密の数: $secret_num" if $debug;
    print '>> ';
    chomp($num = <STDIN>);
    if ($num =~ /\A\s*\Z/) {
        say '終了';
        last;
    } elsif ($num =~ /\D+/ || $num > 100 || $num == 0) {
        say '1から100までの整数を入力してくださ';
    } elsif ($num == $secret_num) {
        say '正解です！';
        last;
    } elsif ($num > $secret_num) {
        say '大きすぎます';
    } else {
        say '小さすぎます';
    }
}

入出力結果(Terminal)

$ ./sample234_2.pl 
秘密の数当てゲーム
1から100までの数を入力してください
秘密の数: 10
>> 100
大きすぎます
秘密の数: 10
>> 10
正解です！
$ ./sample234_2.pl 0
秘密の数当てゲーム
1から100までの数を入力してください
>> 50
大きすぎます
>> 25
小さすぎます
>> 37
小さすぎます
>> 43
小さすぎます
>> 46
大きすぎます
>> 44
正解です！
$