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
|
#! /usr/bin/perl -ws
use Lingua::EN::Inflect qw { :COMPARISONS };
use vars qw { $classical $modern };
classical if $classical && !$modern;
print "compare> ";
while (<>)
{
chomp;
exit if /^\.$/;
if (/^\-classical$/) { classical ; print "[going classical]"}
elsif (/^-modern$/) { classical 0; print "[going modern]" }
else
{
if (/(\S+)\s+(\S+)/)
{
print "PL: [", PL_eq($1, $2), "]\n";
print "PL_N: [", PL_N_eq($1, $2), "]\n";
print "PL_V: [", PL_V_eq($1, $2), "]\n";
print "PL_ADJ: [", PL_ADJ_eq($1, $2), "]\n";
}
}
print "\ncompare> ";
}
|
