2Re: Web app frameworks - I am totally confused!

I don't see how your example is more simple than the following:

use strict;
use warnings;
use CGI qw(header);
use HTML::Template;

my $tmpl = HTML::Template->new(filehandle => \*DATA);
$tmpl->param(
   title => 'HTML Sample',
   toc   => 'Table of Contents',
   body  => 'Sample text',
);

print header, $tmpl->output;

__DATA__
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <title><tmpl_var title></title>
</head>
<body>
  <b><tmpl_var toc></b><br/>
  <i><tmpl_var body></i>
</body>
</html>
[download]

Barring looking under the hood of HTML::Template, of course (hairy stuff - but it works, it's tested, it's ready to go, and it handles loops and includes).

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Comment on 2Re: Web app frameworks - I am totally confused! Download Code

Replies are listed 'Best First'.
Re^3: Web app frameworks - I am totally confused! by Aristotle (Chancellor) on Oct 06, 2003 at 10:57 UTC
I can't resist. `:)` `use strict; use warnings; use CGI qw(:header); use Template; print header; my $t = Template->new(); $t->process(\DATA, { title => 'HTML Sample', toc => 'Table of Contents', body => 'Sample text', }) or die $t->error(); __DATA__ <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title>[% title %]</title> </head> <body> <b>[% toc %]</b><br/> <i>[% body %]</i> </body> </html>` [download] Of course this example barely shows off anything.. Makeshifts last the longest.*	[reply] [d/l]
Re: 2Re: Web app frameworks - I am totally confused! by Roger (Parson) on Oct 06, 2003 at 08:42 UTC
I have never used HTML::Template before, seems like a nice and simple way to do templates. Thanks for the tip I will have a look at the module. My solution was a hack I used from time to time without the HTML::Template. The principles applied should be the same.	[reply]


No such thing as a small change
	PerlMonks