demo_inflect.pl   [plain text]

#! /usr/bin/perl -ws

use Lingua::EN::Inflect qw { &inflect &classical };
use vars qw { $classical $modern };

classical if $classical && !$modern;

print "inflect> ";
while (<>)
{
	chomp;
	exit if /^\.$/;
	if (/^\-classical$/)	{ classical ; print "[going classical]"}
	elsif (/^-modern$/)	{ classical 0; print "[going modern]" }
	else			{ print inflect $_ }
	print "\ninflect> ";
}