Programming Perl - さまざまな制御構造(条件分岐、if/elsif/else文)

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (いずれはこのフル機能版のBBEditを入手したい！)
• Script言語:Perl

『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)の10章(さまざまな制御構造),　10.11(練習問題)、1を解いてみる。

1.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; my $secret_num = int(1 + rand 100); # print "$secret_num\n"; print "1から100までの秘密の数を当ててみてください。\n"; while (1) { chomp(my $num = <STDIN>); last if $num=~/quit|exit|^\s*$/i; if ($num =~ /[^\d]/){ print "数値を入力してください。\n"; } elsif($num == $secret_num){ print "正解！\n"; last; } elsif ($num > $secret_num){ print "Too high\n"; } else { print "Too low\n"; } }

入出力結果(Terminal)

$ ./perl_program 79 1から100までの秘密の数を当ててみてください。 kamimura 数値を入力してください。 80 Too high 78 Too low 79 正解！ $ ./perl_program 1から100までの秘密の数を当ててみてください。 quit $ ./perl_program 1から100までの秘密の数を当ててみてください。 exit $ ./perl_program 1から100までの秘密の数を当ててみてください。 $ ./perl_program 1から100までの秘密の数を当ててみてください。 50 Too high 25 Too low 37 Too low 43 Too low 46 Too low 48 Too high 47 正解！ $

最初は秘密の数が表示されるようにコメントアウトして各正規表現や条件がマッチして意図通りにプログラムが動くか確認。その後、コメントに戻して実際に遊んでみた。