[3.10] 練習問題2

2. 数のリストを(１行に１個ずつ)入力の終わりになるまで読み込んで、以下に示した人名のリストの中から、数に対応する人名を表示するプログラムを書いてください

#! /usr/local/bin/perl
# ex3-2

use strict;
use warnings;

my @person = qw(fred betty barney dino wilma pebbles bamm-bamm);
print "
表\示したい人名に対応する数を入力してください。数の入力は複数回可能\です。
入力を終了するときCtrl + Zキーを押してください。

数と人名の対応は以下のようになっています。
";
print "
0 - fred
1 - betty
2 - barney
3 - dino
4 - wilma
5 - pebbles
6 - bamm-bamm\n
";
chomp(my @nums = <STDIN>);
print "\n人名の表\示を開始します。\n";
foreach(@nums){
    print "$person[$_]\n";
}

出力結果はこちら。

表示したい人名に対応する数を入力してください。数の入力は複数回可能です。

入力を終了するときCtrl + Zキーを押してください。
数と人名の対応は以下のようになっています。
0 - fred

1 - betty

2 - barney

3 - dino

4 - wilma

5 - pebbles

6 - bamm-bamm
1

3

6

^Z
人名の表示を開始します。

betty

dino

bamm-bamm

UIや値のチェックなどを考え始めるときりがないな。
「はじめてのPerl」で与えられている所要時間の範囲で考えていくことにしよう。