
Think about Loose Coupling
	PerlMonks

HTML::Template Tutorial

by jeffa (Chancellor)

on Mar 20, 2001 at 11:07 UTC ( #65642=perltutorial: print w/ replies, xml )

Need Help??

Help for this page

Select Code to Download

Select or download this

# secret.pl
use HTML::Template;
...
my $template = HTML::Template->new(filename => 'secret.tmpl');
$template->param(SECRET_MESSAGE => $bar);
print $template->output;

Select or download this

<!-- secret.tmpl -->
<h1>Hello <TMPL_VAR NAME=SECRET_MESSAGE></h1>

Select or download this

<!-- secret2.tmpl -->
<TMPL_IF NAME="ILLUMINATI">
...
   SECRET_MESSAGE => 'There is no Perl Illuminati',
);
print $template->output;

Select or download this

<!-- secret2.tmpl -->
<TMPL_IF NAME="SECRET">
...
my $template = HTML::Template->new(filename => 'secret2.tmpl');
$template->param(SECRET => $message);
print $template->output;

Select or download this

<!-- students.tmpl -->
<TMPL_LOOP NAME=STUDENT>
...
   ]
);
print $template->output;

Select or download this

<!-- songs.tmpl -->
<html>
...


$DBH->disconnect();

Select or download this

push @{$rows}, $_ while $_ = $sth->fetchrow_hashref();

Select or download this

{
   'artist' => 'Van Halen',
...
   'album'  => 'Van Halen II',
   'year'   => '1979',
};

Select or download this

# we don't need no stinkin' column names
my $rows = $DBH->selectall_arrayref('select * from songs');
...
    die_on_bad_params => 0,
);
$template->param(ROWS => $rows);

Select or download this

my $CGI       = CGI->new();
my $template  = HTML::Template->new(
   filename  => 'foo.tmpl',
   associate => $CGI,
);

Select or download this

<!-- pill.tmpl -->
<table>
...
   loop_context_vars => 1,
);
# etc.

Select or download this

my $template = HTML::Template->new(scalarref => \$scalar);

Select or download this

#!/usr/bin/perl -Tw
use DBI;
...

</body>
</html>

Node Status^?

node history
Node Type: perltutorial [id://65642]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others musing on the Monastery: (16)

As of 2013-05-21 19:15 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

The best material for plates (tableware) is:

Results (445 votes), past polls