/usr/share/doc/liblingua-en-inflect-perl/examples/demo_NO.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 27 28 29 30 | #! /usr/bin/perl -ws
use Lingua::EN::Inflect qw { :USER_DEFINED classical NO };
use vars qw { $classical $modern };
classical if $classical && !$modern;
def_noun 'kin' => 'kine';
def_noun '(.*)x' => '$1xen';
def_verb 'foo' => 'fee',
'foo' => 'fee',
'foos' => 'fee';
def_adj 'red' => 'red|gules';
print "count word> ";
while (<>)
{
chomp;
exit if /^\.$/;
if (/^\-classical$/) { classical ; print "[going classical]"}
elsif (/^-modern$/) { classical 0; print "[going modern]" }
else
{
/\s*([^\s]+)\s+(.*)/ or next;
print " ", NO($2,$1), "\n";
}
print "\ncount word> ";
}
|