Temp Test [% title %]

#!/usr/bin/perl -w use CGI qw/:standard/; use CGI::Carp qw(fatalsToBrowser); use Template::Simple; my $q = new CGI; #my $tmpl = Template::Simple->new(); my $tmpl = Template::Simple->new( search_dirs => [ ( '/dir') ], ); print header(); my $vars = {}; $vars->{'title'} = 'Template Test'; $vars->{'site_name'} = 'TEST Home Page'; $vars = { header => { date => 'Jan 1, 2008', author => 'Me, myself and I', }, row => [ { first => 'row 1 value 1', second => 'row 1 value 2', }, { first => 'row 2 value 1', second => 'row 2 value 2', }, ], footer => { modified => 'Aug 31, 2006', }, } ; #my $rendered = $tmpl->render( 'templ.tmpl', $vars )|| die $tmpl->error(); $tmpl->add_templates( { demo => 'templ.tmpl' } ) ; $tmpl->compile( 'demo' ) ; my $rendered = $tmpl->render( 'demo', $vars ) ; ##

##







Temp Test [% title %] 




Template Simple

[%include title %]




[%INCLUDE site_name%]





[%INCLUDE header%]

[%START row%]
        [%first%] - [%second%]
[%END row%]

[%INCLUDE footer%]