/usr/share/doc/liblingua-en-inflect-perl/examples/demo_eq.pl is in liblingua-en-inflect-perl 1.901-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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> ";
}
|