#!/usr/bin/perl
# freq.pl - Don Yang (uguu.org)
#
# 08/31/03


foreach $file (@ARGV)
{
   open INFILE, "< $file" or (print "$file: $!\n" and next);
   $space = $char = 0;
   while( $line = <INFILE> )
   {
      foreach $c (unpack 'C*', $line)
      {
         (((chr $c) =~ /\s/) ? $space : $char)++;
      }
   }
   print "$file: $char char, $space space, ", $space + $char, " total\n";
   close INFILE;
}