#単語の出現をカウントする
#制作 T. Takahashi
#word_count.pl

#ファイル名の指定
print "開くファイル名を指定してください：";
$open_file = <STDIN>;
print "保存するファイル名を指定してください：";
$save_file = <STDIN>;
chop($open_file, $save_file);

#ファイルのオープン
open(F, $open_file) || die "$open_fileをオープンできません:$!\n";
open(F2, ">$save_file") ||die "$save_fileを作成できません:$!\n";


while (<F>) {
	#段落モードにする。
	$/ = "";

	#複数行にわたるパターンマッチを可能にする。
	$* = 1;

	#小文字に正規化する
	tr/A-Z/a-z/;
	@words = split(/\W*\s+\W*/, $_);
	foreach $word (@words) {
		#カウントを増やす。
		$wordcount{$word}++;
	}
}

#連想配列%wordcountの全てのエントリを表示する。
foreach $word (sort keys(%wordcount)) {
	printf F2 "%0s\t%d\n", $word, $wordcount{$word};
}

#ファイルのクローズ
close(F);
close(F2);