#! /usr/bin/perl # PREAMBLE use CGI; use strict; my ($cgi) = new CGI; print $cgi->header (); print $cgi->start_html (-title=>'LATIN DECLENSION', -author=>'keloon@catholic.org.hk', -base=>'true', -meta=>{'keywords'=>'Latin Grammar', 'content'=>"text/html; charset=utf-8",'keywords'=>'Latin Grammar','copyright'=>'copyright 2000, Louis Ha'}, -BGCOLOR=>'#CCCCFF'); print "
"; print "
"; print "

SECOND CONJUGATION VERB (deponents)

"; print "
"; # MAIN-BODY my ($prstem) = $cgi->param ("prstem"); my ($pfstem) = $cgi->param ("pfstem"); my ($sustem) = $cgi->param ("sustem"); my ($instem) = $cgi->param ("instem"); my ($english) = $cgi->param ("english"); declense ($prstem,$pfstem,$sustem,$instem,$english) if ($prstem,$pfstem,$sustem,$instem,$english); # ending print $cgi->hr(); print 'Return to Main page

'; print 'The present website is compiled for an introductory Latin course at the Chinese University of Hong Kong by Dr. Louis Ha.
'; print 'Copyright by Louis Ha, 2000.
'; print $cgi->center ('* * *'); print '

'; ## MAIN-BODY # DECLENSE sub declense{ print "
"; # printf "Latin : %s

\n", # $cgi->escapeHTML ($key_word).", -is, -e"; print $cgi->blockquote(qq{Latin : $prstem-eor, $instem, $sustem-us sum}); printf "English : %s

\n", $cgi->escapeHTML ($english); print $cgi->hr(); print $cgi->blockquote(qq{
ACTIVE
INDICATIVE SUBJUNCTIVE
PRESENT
1.sg $prstemeor $prstemear
2.sg $prstemēris $prstemeāris
3.sg $prstemētur $prstemeātur
1.pl $prstemēmur $prstemeāmur
2.pl $prstemēmini $prstemeāmini
3.pl $prstemēntur $prstemeāntur
IMPERFECT
1.sg $prstemēbar $prstemērer
2.sg $prstemebāris $prstemerēris
3.sg $prstemebātur $prstemerētur
1.pl $prstemebāmur $prstemerēmur
2.pl $prstemebāmini $prstemerēmini
3.pl $prstemebāntur $prstemerēntur
FUTURE
1.sg $prstemēbor
2.sg $prstemēberis
3.sg $prstemēbitur
1.pl $prstemēbimur
2.pl $prstemebīmini
3.pl $prstemebūntur
PERFECT
1.sg $sustemus -a -um sum $sustemus -a -um sim
2.sg $sustemus -a -um es $sustemus -a -um sis
3.sg $sustemus -a -um est $sustemus -a -um sit
1.pl $sustemi -ae -a sumus $sustemi -ae -a simus
2.pl $sustemi -ae -a estis $sustemi -ae -a sitis
3.pl $sustemi -ae -a sunt $sustemi -ae -a sint
PLUPERFECT
1.sg $sustemus -a -um eram $sustemus -a -um essem
2.sg $sustemus -a -um eras $sustemus -a -um esses
3.sg $sustemus -a -um erat $sustemus -a -um esset
1.pl $sustemi -ae -a eramus $sustemi -ae -a essemus
2.pl $sustemi -ae -a eratis $sustemi -ae -a essetis
3.pl $sustemi -ae -a erant $sustemi -ae -a essent
FUTURE PERFECT
1.sg $sustemus -a -um ero
2.sg $sustemus -a -um eris
3.sg $sustemus -a -um erit
1.pl $sustemi -ae -a erimus
2.pl $sustemi -ae -a eritis
3.pl $sustemi -ae -a erunt

ACTIVE ACTIVE
IMPERATIVE INFINITIVE
present $prstemēre, $prstemēmini $prstemēri
perfect $sustemus -a -um esse
future $sustemūrus -a -um esse

PARTICIPLE PARTICIPLE GERUND SUPINE
ACTIVE PASSIVE Gen. $prstemēndi
present $prstemens, (-tis) Dat. $prstemēndo
perfect $sustemus -a -um Acc. $prstemēndum $sustemum
future $sustemūrus -a -um $prstemēndus -a -um Abl. $prstemēndo $sustemu
}); } ## WEBPAGE OUTPUT