Formae Textoris in CroALa

====== A Perl script to produce a HTML report with a report template ====== ===== The script =====


#!/usr/bin/perl
# marul-stem.pl - read in a HTML template a file formatted by csvstem2html.pl
# usage: perl marul-stem.pl filename
use strict;
use warnings;
use HTML::Template;
use DateTime;
use File::Slurp 'read_file';

# print current date:
my $now = DateTime->now->ymd;
my $filenam  = shift or die 'filename!';
my $tbl = read_file $filenam;
# use template marul-stem.tpl
my $template = HTML::Template->new(filename => 'marul-stem.tpl');
$template->param(
TABLICA => $tbl,
TEMPUS => $now,
);
print $template->output;

===== The template =====




Formae Textoris in CroALa




Formae Textoris in CroALa et apud Pannonium quaerendae.

Forma Latinitatis Croaticae, .
Littera A

No. Lemma Forma Quoties in Pannonio? Quaere! Quoties in CroALa? Quaere! Anno MMXI pecuniam dedit.