#99 Article 1055 Posted at 1995/12/20 17:23:34 by ＭＩＮＥ (MAP2506) [SAHOU.4]
Subject: Re: Re: プログラミング作法・お題４ /1054 /1052
こーゆーのなら awk が強いぞ。（笑）
仕事の合間に楽勝で出来ちゃうっす。
A:\>jgawk "{for(j=1;j<=NF;j++)a[$j]++};END{for(i in a)print a[i],i}" in.txt
in.txt
｜banana apple orange
｜apple
｜apple banana
stdout（出力）
｜2 banana
｜3 apple
｜1 orange
データそのものを配列の添字に突っ込んちゃうのがミソ。(^_^;
入力が題目の例のように１行に１単語なら、
A:\>jgawk "{a[$0]++};END{for(i in a)print a[i],i}" in.txt
で、済みます。
ｂｙ 超絶無敵 ＭＩＮＥ