1#! /usr/bin/perl -ws 2 3use Lingua::EN::Inflect qw { :COMPARISONS }; 4use vars qw { $classical $modern }; 5 6classical if $classical && !$modern; 7 8print "compare> "; 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 if (/(\S+)\s+(\S+)/) 18 { 19 print "PL: [", PL_eq($1, $2), "]\n"; 20 print "PL_N: [", PL_N_eq($1, $2), "]\n"; 21 print "PL_V: [", PL_V_eq($1, $2), "]\n"; 22 print "PL_ADJ: [", PL_ADJ_eq($1, $2), "]\n"; 23 } 24 } 25 print "\ncompare> "; 26} 27