Produces a count of the frequencies of each file extension in the directories named on the command line
#!/usr/bin/perl -w use strict; my %exten; foreach (@ARGV) { /(\.[^.]+)$/ && $exten{$1}++ foreach glob "$_/*.*" } print "$_: $exten{$_}\n" foreach sort keys %exten;
