45 lines
975 B
Perl
Executable file
45 lines
975 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
#
|
|
# Setup
|
|
#
|
|
|
|
# Directives
|
|
use strict;
|
|
use warnings;
|
|
|
|
# Modules
|
|
use File::Basename;
|
|
|
|
#
|
|
# Syllables
|
|
#
|
|
|
|
my @SYLLABLES = qw@a wa ra ma pa ba ha na da ta za sa ga ka fa e we re
|
|
me pe be he ne de te ze se ge ke fe i wi ri mi pi bi hi ni chi ji shi
|
|
gi ki fi o wo ro mo po bo ho no do to jo so go ko fo u wu ru mu pu bu
|
|
hu nu tsu zu su gu ku fu ya rya mya pya bya hya nya chya jya shya gya
|
|
kya yo ryo myo pyo byo hyo nyo chyo jyo shyo gyo kyo yu ryu myu pyu
|
|
byu hyu nyu chyu jyu shyu gyu kyu n@;
|
|
|
|
#
|
|
# 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 (@SYLLABLES)
|
|
{
|
|
# 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);
|
|
}
|