プログラミング学習の記録 476.1 『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)の6章(ハッシュ)の練習問題1

開発環境

• 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) の6章(ハッシュ), 6.6(練習問題)、1を解いてみる。

1.

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

コード(TextWrangler)

#!/usr/bin/perl -w %users=( "fred"=>"flintstone", "barney"=>"rubble", "wilma"=>"flintstone", ); print "名前を入力してください\n"; chomp($name=<STDIN>); if($users{$name}){ print "姓は$users{$name}ですね！\n"; }else{ print "あなたは登録されていません。\n"; }

3人とも入力してみる

入出力結果(Ternimal)

名前を入力してください fred 姓はflintstoneですね！

名前を入力してください barney 姓はrubbleですね！

名前を入力してください wilma 姓はflintstoneですね！

ハッシュに無い名前を入力した場合。

入出力結果(Ternimal)

名前を入力してください kamimura あなたは登録されていません。

ここでは登録されてないと表示することにしてみた。(新たにハッシュに登録する方法のほうがいいと思うけどそれは次の周で挑戦することに！)