38 lines
637 B
Text
38 lines
637 B
Text
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
#
|
||
|
|
# Setup
|
||
|
|
#
|
||
|
|
|
||
|
|
# Directives
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
# Modules
|
||
|
|
use File::Basename;
|
||
|
|
|
||
|
|
#
|
||
|
|
# Figure out the directory
|
||
|
|
#
|
||
|
|
|
||
|
|
my $script_directory = dirname($0);
|
||
|
|
my $root_directory = dirname($script_directory);
|
||
|
|
my $dict_directory = "$root_directory/dictionary";
|
||
|
|
|
||
|
|
#
|
||
|
|
# Go through the syllable files and build up the counts.
|
||
|
|
#
|
||
|
|
|
||
|
|
foreach my $syllable (glob("$dict_directory/*"))
|
||
|
|
{
|
||
|
|
# Ignore non-directories.
|
||
|
|
next unless $syllable;
|
||
|
|
|
||
|
|
# Figure out the counts for this directory.
|
||
|
|
my @count = glob("$dict_directory/$syllable/*.markdown");
|
||
|
|
my $count = scalar(@count);
|
||
|
|
|
||
|
|
# Write it out.
|
||
|
|
printf "%3d %s\n", $count, basename($syllable);
|
||
|
|
}
|