Skip to content

Instantly share code, notes, and snippets.

@zst123
Last active May 1, 2020 14:58
Show Gist options
  • Save zst123/f864b5670c1a85e366854e5f46528bf3 to your computer and use it in GitHub Desktop.
Save zst123/f864b5670c1a85e366854e5f46528bf3 to your computer and use it in GitHub Desktop.
Mea prima programma in Lingua::Romana::Perligata. My first program using Lingua::Romana::Perligata.
#!/usr/bin/env perl
use Lingua::Romana::Perligata
# 'converte',
# 'discribe'
# 'investiga',
;
adnota =========================================================
adnota #[EN] This is my first program.
adnota #[LA] haec est mea prima programma.
adnota =========================================================
adnota #[EN] Write the text "Hello World!"
adnota #[LA] scribe verbum "Salve Munde!"
scriptio da dictum sic Salve Munde! cis.
scriptium tum novumversum egresso scribe.
adnota =========================================================
adnota #[EN] Write the numbers from zero to ten
adnota #[LA] scribe numeros a nullum ad decem
listis da nullum tum decem conscribementum.
per quisque in listis fac sic
hoc tum novumversum egresso scribe.
cis.
adnota =========================================================
adnota #[EN] Get current date using localtime() in list context
adnota #[LA] quaerere quod dies est hodie cum localtimeo per liste contextu
meis tempis da localtimeementum.
adnota # 0 1 2 3 4 5 6 7 8
adnota #($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)
dieo da tertium temporum.
menso da quartum temporum tum unam addementum.
adnota #[EN] Add 1900 because Perl counts years from 1900.
adnota #[LA] Adde MCM quod Perligata a MCM anno numerat
anno da quintum temporum tum MCM addementum.
adnota =========================================================
adnota #[EN] Create a list of the names of the months
adnota #[LA] fac index nominum mensibus
nomenmensis da lacunam tum dictum sic
Menses
Januarius
Februarius
Martius
Aprilis
Maius
Junius
Quintilis
Sextilis
September
October
November
December
cis scindementum.
adnota per quisque in nomenmensis fac sic
adnota hoc tum novumversum egresso scribe.
adnota cis.
adnota #[EN] Write year, month and date of today
adnota #[LA] scribe hodiernis annum, mensum et diem
dictum sic Hodie cis egresso scribe tum lacunam.
annum comementum egresso scribe tum lacunam.
dictum sic anni cis egresso scribe tum lacunam.
mensum nomenmensorum egresso scribe tum lacunam.
dictum sic mensis cis egresso scribe tum lacunam.
dieum comementum egresso scribe tum lacunam.
dictum sic dies cis egresso scribe tum lacunam.
dictum sic est cis egresso scribe tum novumversum.
adnota =========================================================
adnota #[EN] References:
adnota #[LA] documenta:
adnota # - https://metacpan.org/pod/Lingua::Romana::Perligata
adnota # - https://web.eecs.umich.edu/~imarkov/Perligata.html
adnota # - http://www.cultus.hk/latin7/lesson_1/perligata.html
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment