#!/bin/bash

#./AuthorHist Authors.dat
# will stream a histogram of authors


  if [[ -z $1 ]]; then
    echo "exit: need list of authors"
    exit -1
  fi

infile=$1

sed 's/\.$//' $infile | \
  awk -F, '{printf ("%s", $1)
  n=split($2,a," ")
  for (k=1;k<=n;k++){b=substr(a[k],1,1);printf (" %s ",b)} 
  print ""}' | \
sort | uniq -c | sort -k1nr | sed 's/  / /;s/ $//'