[5.5]練習問題２

2.一連の単語を（一行に一個ずつ）ファイルの終わりになるまで読み込んで、各単語が何回出現したかを表示するプログラムを書いてください。

徐々に難しくなってきた。

# /usr/local/bin/perl
# ex 5-2

use strict;
use warnings;

my (@word, %sum);
print "一行に一個ずつ単語を入力してください。\n入力を終えるときはCtrl+Zキーを押してください。\n";
chomp(@word = <STDIN>);
foreach(@word){
    ++$sum{$_};
}
print "各単語が何回入力されたかを出力します。\n";
foreach(keys %sum){
    print "$_ - $sum{$_}\n";
}

出力結果はこちら。

一行に一個ずつ単語を入力してください。

入力を終えるときはCtrl+Zキーを押してください。

a

b

c

c

a

a

a

^Z

各単語が何回入力されたかを出力します。

c - 2

a - 4

b - 1

まだまだ強固な基礎ができていない。
復習としてこれまでの練習問題を解こう。