テキストファイルの出現回数を出力するプログラムについて

質問

こんにちは　or　こんばんは
学校の授業でRubyを習っています。
授業の課題でこんな問題がでました。
「英文の文章が入っているテキストファイルがあたえられると、そのファイルに置ける各語の出現回数を出力するプログラムをつくれ」
テキストファイルの中身は
「Show your flowcharts and conceal your
tables and I will be mystified. Show
your tables and your flowcharts will be
obvious.」というファイルで
出力結果としては
「show 2
your 4
flowcharts 2
and 3
conceal 1
...」
の用に出現する単語の数を表示するプログラムなのですが
単語ごとに区切る方法がわかりません。
何度かプログラムを組んでみたのですが全く違う結果でした。
$KCODE = 'e'

str = [] #文字列
cnt = {} #回数
cp_str = []

ARGF.each do |l|
/([A-Za-z]+)/ =~l
for i in 0..(str.size)
if str[i] == $1
cnt[$1] += 1
else
str << $1
cnt[$1] = 1
end
end
end

str.each do |m|
puts "#{m} #{cnt[m]}"
end

授業の課題の答えを教えて欲しいとは望みませんができればわかりやすいヒントをどなたかわかる方お願いします。
環境は　Vine Linux 4.2 emacs　で作成しています
またテキストファイルはopenなどのメソッドは習っておらず
ARGFで作成したいのでよろしくお願いします。

回答No.3

tatsu99 · ベストアンサー

以下のようにしてください。
------------------------------
$KCODE='e'
word_tbl = {} #Hashテーブルを初期化
ARGF.each do |line|
words = line.split(/\s+\.*/) #1行を単語毎に分割する wordsの配列には各単語が格納される
# 分割する時の区切り文字の正規表現は、スペースが１個以上連続し、
# ピリオドが０回以上連続すること
words.each do |word| # wordsの１単語を処理する
if word_tbl.key?(word) # word_tblにその単語が登録済みなら
word_tbl[word] += 1 # その単語の回数に１加算
else #そうでないなら
word_tbl[word] = 1 # 初回の登録 （１を設定）
end
end
end
word_tbl.each do |word,count| # word_tblの各要素のキーと値を印字する
print word," ",count,"\n"
end
----------------------------

お礼

回答ありがとうございます。
tasu99さんの言う通りに組んだら
理想どおりの結果が表示されました。
ありがとうございます。

回答No.4

tatsu99

#3です。
splitの正規表現は、
words = line.split(/[\s\.]+/)
にしてください。

回答No.2

sakusaker7

単語の切り出しは　splitでいいと思います。
引数なしで split を呼ぶと空白類で区切った配列を返してくれます。
ARGF.each で行毎に繰り返していますが、さらに末尾の改行を取り除いてから
split して、その結果に対してカウント作業すればよいです。

また、単語ごとのカウントに配列とハッシュを使っていますが
ハッシュだけでできますよ。

使えるメソッドが制限されているみたいなので、詳しい記述などは
避けておきますが、何かあれば補足してください。

お礼

回答ありがとうございます。
なんとかがんばってみます。

回答No.1

osamuy

単語をあらわす正規表現を使って、scan()で切り出していけばよいのでは。
http://www.ruby-lang.org/ja/man/html/String.html#scan

お礼

回答ありがとうございます。
scanの()の中の正規表現がむずかしいですよね。
がんばってみます。