1#! /usr/bin/perl -ws 2 3use Lingua::EN::Inflect qw { classical NUM inflect }; 4use vars qw { $classical $modern }; 5 6classical if $classical && !$modern; 7 8print "count inflection> "; 9while (<>) 10{ 11 chomp; 12 exit if /^\.$/; 13 if (/^\-classical$/) { classical ; print "[going classical]"} 14 elsif (/^-modern$/) { classical 0; print "[going modern]" } 15 else 16 { 17 /\s*(\S+)\s+(.*)/ and 18 print " ", NUM($1), " ", inflect($2), "\n" 19 or /\s*(\S*)/ and 20 print " ", inflect($1), "\n"; 21 } 22 print "\ncount word> "; 23} 24