#!/usr/local/bin/perl
#
# counts entries in a BibTeX database
# written 1992, Dana Jacobsen (dana@acm.org)

while (<>) {
  (s/^\s*\@\s*(\w+).*$/\L$1/ && $field{$_}++) if /^\s*\@/o;
}

delete $field{"string\n"};
delete $field{"preamble\n"};

foreach $f (sort keys %field) {
  printf "%5d %s", $field{$f}, $f;
  $total += $field{$f};
}
print "$total entries\n";