words

#!/bin/bash
declare -A words
IFS=" .,;:-+?!<>=()[]{}\"\\\'|"
declare -l line # kis es nagybetu kozott nem teszunk kulonbseget
while read line;do #szavak elofordulasi gyakrisagat szamolja
   for word in $line;do
     if [ "$word" != "" ];then #IFS valtozo nem default erteke miatt kell
       ((words[$word]++))
     fi
   done
done < words.txt  #ha nincs ilyen file, akkor hozzuk letre

maxWordLength=`
for k in "${!words[@]}";do
  echo "$k"
done | wc -L` #leghosszabb szot meghatarozza
maxCountLength=`
for k in "${!words[@]}";do
  echo "${words[$k]}"
done | wc -L` #legnagyobb elofurdulasi szam hosszat hatarozza meg

for k in "${!words[@]}";do # tagoltan kiirja a szavak elofordulasi gyakorisagat
  printf "%*s %*d times\n" $maxWordLength "$k" $maxCountLength "${words[$k]}"
done