#! /bin/bash
# Text analisis

for n in $*
do
	echo Analisis $n :
	wc $n |
	awk '{printf "\t%5d line %10d word %10d char\n",$1,$2,$3}'
	pr -e8 -t $n |
	awk 'BEGIN{
		nulline=0; maxline=0; minline=1000; total=0; line=0}
	{
		strlen=length($0) ; line=line+1
		total=total+strlen
		if (strlen==0) nulline = nulline +1
		if (strlen>maxline) maxline=length($0)
		if (strlen<maxline) minline=length($0) }
	END{
		printf "\tchar/line %5d (max)\t", maxline 
		printf "%d (min)\t", minline
		printf "%d (ave)\t", total/line
		printf "%d (null)\n", nulline
	}'
done