view release on metacpan or  search on metacpan

script/_metasyn  view on Meta::CPAN

#acanthi
#acini
#alumni
#anthocauli
#bacilli
#baetuli
#cacti
#calculi
#calli
#catheti
#emboli
#emeriti
#esophagi
#foci
#foeti
#fumuli
#fungi
#gonococci
#hippopotami
#homunculi
#incubi
#loci
#macrofungi
#macronuclei
#naevi
#nuclei
#obeli
#octopi
#oeconomi
#oesophagi
#panni
#periœci
#phocomeli
#phoeti
#platypi
#polypi
#precunei
#radii
#rhombi
#sarcophagi
#solidi
#stimuli
#succubi
#syllabi
#thesauri
#thrombi
#tori
#trophi
#uteri
#viri
#virii
#xiphopagi
#zygomatici
#/);
#
#my %i_to_us;
#@i_to_us{@i_to_us} = (1) x @i_to_us;
#
## -i to -o
#my @i_to_o = (qw/
#    alveoli
#    ghetti
#    manifesti
#    ostinati
#    pianissimi
#    scenarii
#    stiletti
#    torsi
#/);
#
#my %i_to_o;
#@i_to_o{@i_to_o} = (1) x @i_to_o;
#
## -i to something else
#
#my %i_to_other = (
#    improvisatori => 'improvisatore',
#    rhinoceri => 'rhinoceros',
#    scaloppini => 'scaloppine'
#);
#
## See documentation below.
#
#sub to_singular
#{
#    my ($word) = @_;
#    # The return value.
#    my $singular = $word;
#    if (! $not_plural{$word}) {
#        # The word is not in the list of exceptions.
#        if ($plural{$word}) {
#            # The word has an irregular plural, like "children", or
#            # "geese", so look up the singular in the table.
#            $singular = $plural{$word};
#        }
#        elsif ($word =~ /s$/) {
#            # The word ends in "s".
#            if ($word =~ /'s$/) {
#            # report's, etc.
#            ;
#            }
#            elsif (length ($word) <= 2) {
#            # is, as, letter s, etc.
#            ;
#            }
#            elsif ($word =~ /ss$/) {
#            # useless, etc.
#            ;
#            }
#            elsif ($word =~ /sis$/) {
#            # basis, dialysis etc.
#            ;
#            }
#            elsif ($word =~ /ies$/) {
#                # The word ends in "ies".
#                if ($ies{$word}) {
#                    # Lies -> lie
#                    $singular =~ s/ies$/ie/;
#                }
#                else {
#                    # Fries -> fry