lhp@nereida:~/Lperl/src/template_toolkit/src$ cat -n ex1.pl 1 #!/usr/local/bin/perl -w 2 use strict; 3 use Template; 4 5 my $tt = Template->new({ 6 INCLUDE_PATH => "$ENV{HOME}/tt" 7 }); 8 my %vars = ( 9 nombre => 'Casiano', 10 nota => '8', 11 practica => 'Template Toolkit', 12 ); 13 $tt->process('carta', \%vars);
lhp@nereida:~$ cat -n tt/carta 1 Hola [% nombre %], 2 3 Queria comunicarle que ha sacado una nota 4 de [% nota %] en la práctica "[% practica %]". 5 [%- IF nota > 7 %] 6 Enhorabuena. 7 [% END -%] 8 9 El profesor
Casiano Rodríguez León