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