プログラミング学習の記録 699.2 15章(スマートマッチとgiven-when)の練習問題1(perlでC#等のswitch-caseの代わりとなる文) 『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler(Text Editor) (いずれはBBEditを入手したい！)
• Script言語:Perl

『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)の 15章(スマートマッチとgiven-when),　15.6(練習問題)、1を解いてみる。

 

1.

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

コード(TextWrangler)

#!/usr/bin/env perl use 5.010; use strict; use warnings; my $num=int(1 + rand 100); while(<>){ given($_){ when(/quit|exit|^\s*$/i || $_==$num){ say "last"; last; } when ($_>$num){ say "Too high"; } when ($_<$num){ say "Too low"; } } }

入出力結果(Terminal)

$ ./perl_program quit last $ ./perl_program exit last $ ./perl_program last $ ./perl_program 50 Too low 75 Too low 88 Too low 94 Too low 97 Too high 96 last