5章 ハッシュ~5.5 演習問題~

perl

練習問題１：名前を標準入力から入力して、ハッシュに対応する姓があれば出力。

#! /usr/bin/perl -w

use strict;

my %hash = (
　　'fred' => 'flintone',
　　'barney' => 'rubble',
　　'wilma' => 'flintone'
);

print "Please enter first name : ";
chomp(my $name=);

if(exists($hash{$name})){
　　print "The famiry name of $name is $hash{$name} \n";
}else{
　　print "These is not $name in Data Base. \n"
}

練習問題２：一連の単語をファイルの終わりまで読み込んで、
　　　　　　各単語が何回出現したか表示する。
ファイル内容

fred
barney
fred
dino
wilma
fred

ソース

#! /usr/bin/perl -w

use strict;

my(@word,%count,$word);
chomp(@word = );

foreach (@word){
　　$count{$_}++;
}

foreach (sort(keys(%count))){
　　print "$_ => $count{$_} \n";
}