[5.5]練習問題１

1.ユーザから名前を入力してもらって、その人の姓を表示するプログラムを書いてください。

#! /usr/local/bin/perl
# ex5-1

use strict;
use warnings;

my %last_name = (
    fred   => 'flintstone',
    barney => 'rubble',
    wilma  => 'flintstone',
);

print "fred,barney,wilmaの中から該当する名前を入力してください。\n";
chomp(my $name = <STDIN>);
if(defined($last_name{$name})){
    print "入力された名前に対応する姓は$last_name{$name}です";
}else{
    print "入力エラーです。fred,barney,wilmaの中から該当する名前を入力してください。\n";
}

出力結果はこちら。

fred,barney,wilmaの中から該当する名前を入力してください。

fred

入力された名前に対応する姓はflintstoneです
fred,barney,wilmaの中から該当する名前を入力してください。

wilma

入力された名前に対応する姓はflintstoneです
fred,barney,wilmaの中から該当する名前を入力してください。

ab

入力エラーです。fred,barney,wilmaの中から該当する名前を入力してください。