# Produces a count of the frequencies of each filetype, as determined by

#!/usr/pkg/bin/perl -w
# Produces a count of the frequencies of each filetype, as determined by
# filename extension, in the named directories
# Created 20 Feb 2007 by John T. Wodder II
use strict;

my %exten;
foreach (@ARGV) { # Should each argument have its own printout?
/(\.[^.]+)$/ && $exten{$1}++ foreach glob "$_/*.*";
}
print "$_: $exten{$_}\n" foreach sort keys %exten;