1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#! /usr/bin/perl -ws
use Lingua::EN::Inflect qw { :USER_DEFINED classical NO };
use vars qw { $classical $modern };
classical if $classical && !$modern;
def_noun 'kin' => 'kine';
def_noun '(.*)x' => '$1xen';
def_verb 'foo' => 'fee',
'foo' => 'fee',
'foos' => 'fee';
def_adj 'red' => 'red|gules';
print "count word> ";
while (<>)
{
chomp;
exit if /^\.$/;
if (/^\-classical$/) { classical ; print "[going classical]"}
elsif (/^-modern$/) { classical 0; print "[going modern]" }
else
{
/\s*([^\s]+)\s+(.*)/ or next;
print " ", NO($2,$1), "\n";
}
print "\ncount word> ";
}
|
