プログラミング学習の記録 568.2 『初めての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
use strict;
use warnings;

# ハッシュを定義
my %names = (
 "fred"=>"flintstone",
 "barney"=>"rubble",
 "wilma"=>"flintstone",
 );
 
# ユーザーから名前を入力してもらう
print "名前を入力してください\n";
chomp(my $first=<STDIN>);

# 入力された名前の人の姓を表示
if($names{$first}){
  print "$firstの姓は$names{$first}です。\n";
  }else{
  print "$firstはハッシュに含まれていません。\n";
  }

一応ハッシュで定義された3人とハッシュのkeyに含まれていないkamimuraでテスト。

入出力結果(Ternimal)

$ ./my_program 名前を入力してください fred fredの姓はflintstoneです。

入出力結果(Ternimal)

$ ./my_program 名前を入力してください barney barneyの姓はrubbleです。

入出力結果(Ternimal)

$ ./my_program 名前を入力してください wilma wilmaの姓はflintstoneです。

入出力結果(Ternimal)

$ ./my_program 名前を入力してください kamimura kamimuraはハッシュに含まれていません。

ファイルの用意が必要な場合はO'Reilly Japan - 初めてのPerl 第5版の関連ファイルのプログラム例に含まれているものを使用しています。