meillo@57: #!/bin/sh
meillo@57: #
meillo@57: # print letter frequency
meillo@57: 
meillo@57: cat "$@" | tbl | pic | nroff -ms -Tlocale 2>/dev/null |
meillo@57:         tr -cd 'A-Za-zÄÖÜäöüß'|tr A-ZÄÖÜ a-zäöü |
meillo@57: 	sed 's,.,&\n,g'| sort |uniq -c | awk '
meillo@57: {sum+=$1; a[$2]=$1;}
meillo@57: END {for (x in a) {printf("%s\t%.2f\t%4d\n", x, a[x]/sum, a[x])} }
meillo@57: '| sort -nr -k 3
meillo@57: