Ananke::Template is a Perl module based on Template ToolKit.
SYNOPSIS
Template.pl:
use Ananke::Template;
# Vars
my @array;
push(@array,{ name => 'Udlei', last => 'Nattis' });
push(@array,{ name => 'Ananke', last => 'IT' });
my $var = {
id => 1,
title => 'no title',
text => 'no text',
};
# Template Directory and File
my $template_dir = "./";
my $template_file = "template.html";
my $template_vars = {
'hello' => "\nhello world",
'scalar' => $var,
'array' => ['v1','v2','v3','v4'],
'register' => \@array,
};
$template_vars->{SCRIPT_NAME} = "file.pl";
# Method 1 - print
# Create template object
my $template = new Ananke::Template($template_dir);
# Run Template
$template->process($template_file,$template_vars);
# Method 2 - print
&Ananke::Template::view_template($template_dir,$template_file,$template_vars);
# Method 3 - write in file
&Ananke::Template::view_template($template_dir,$template_file,$template_vars,"/tmp/file.html");
# Method 4 - return to variable
my $return = Ananke::Template::view_template($template_dir,$template_file,$template_vars,1);
print $return;
template.html:
[% hello %]
[% IF scalar %]
ID: [% scalar.id %]
Title: [% scalar.title %]
Text: [% scalar.text %]
[% END %]
[% FOREACH i = array %]
value = [% i %]
[% END %]
[% FOREACH i = register %]
Nome = [% i.name %], Last = [% i.last %]
[% END %]
Product's homepage
Requirements:
· Perl