Re: Reading in html files help!

You could let HTML::Template do the heavy lifting.

This assumes the two files header.tmpl and footer.tmpl exist.

#!/usr/bin/perl

use warnings;
use strict;

use HTML::Template;

my $t = HTML::Template->new(filehandle => *DATA);
print $t->output;

__DATA__
<html>
<head>
<title>Simple Test</title>
</head>
<body>
<TMPL_INCLUDE NAME="header.tmpl">
<div class=menu>
...stuff...
</div>
<div class=main>
<!--content-->
</div>
<TMPL_INCLUDE NAME="footer.tmpl">
</body>
</html>
[download]

<html>
<head>
<title>Simple Test</title>
</head>
<body>
home - about - services - etc
<div class=menu>
...stuff...
</div>
<div class=main>
<!--content-->
</div>
its all about service etc

</body>
</html>
[download]

Comment on Re: Reading in html files help! Select or Download Code

Replies are listed 'Best First'.
Re^2: Reading in html files help! by Anonymous Monk on Apr 22, 2010 at 14:59 UTC
I don't think I can use this because there is a lot of things happening inside of the while loop.	[reply]