Perl テキスト内の文字列 合計値

質問

ご教示お願い致します。

test.txt
---------------
a,a,a
c,b,b
b,c,b
a,a,d
a,e,e
---------------
↑のようなテキストがあり
それを
１列目[0]
a = 3
b = 1
c = 1
d = 0
e = 0
２列目[1]
a = 2
b = 1
c = 1
d = 0
e = 1
3列目[2]
a = 1
b = 2
c = 0
d = 1
e = 1

このように求めたいのと、

全ての配列から
a = 6
b = 4
c = 2
d = 1
e = 2

という風に求めたいのですが、どのようにするのでしょうか？

回答No.1

bardfish

具体的なコードはご自分で考えていただくとして、簡単に・・・

テキストファイルから1行読み込んだらsplit関数(だったかな？)で区切り文字指定して配列化する。
連想配列でインクリメントする。
その結果をfor eachで配列文字列と件数を表示する。

以上を繰り返す。

で、出来ると思います。