RE: Design vs. Code vs. Maintenance

I used to do this all the time by hand without using any CPAN modules. Here is my method:

I named my html templates with a .htmlt extension, so I'd know they were templates.
My variable placeholders in the template files were designated as allcap names of their matching perl variable name. Example, if I had $title in my .cgi, then I'd have a $TITLE in my .htmlt.

In my .cgi, I'd have the following:

    open(TEMPLATE, "mypage.htmlt") or die "can't open mypage.htmlt: $!
+";
        local($/) = undef;
        my $template = <TEMPLATE>;
    close(TEMPLATE);
    $template =~ s/\$TITLE/$title/g;
    print "Content-type: text/html\n\n";
    print $template;
[download]

That's about all it took. No modules, no special installs or permissions with the ISP.

Comment on RE: Design vs. Code vs. Maintenance Download Code

Replies are listed 'Best First'.

RE: RE: Design vs. Code vs. Maintenance
by BBQ (Curate) on May 19, 2000 at 05:32 UTC

# parses HTML files as templates
#################################################
sub MakeHTML {
    
    my ($file,%HTML) = @_;
    my ($line,$tag,$html);
    
    # open HTML file
    open(READ,$file) || return(0);
    foreach $line (<READ>) {
        foreach $tag (keys %HTML) {
            # substitute tags
            $line =~ s/\[$tag\]/$HTML{$tag}/gi;
        }
        # gather parsed HTML
        $html .= $line;
    }
    close(READ);

    return($html);
}

# assign things like
$STUFF{'myname'} = 'John Burbridge';
$STUFF{'myage'} = 26;

# then print it
my $html = MakeHTML('/path/to/template.htm',$STUFF)
    or Errors('couldnt parse the template');

print "Content-type: text/html\n\n";
print $html;
[download]

<html><body>
My name is [myname] and I am [myage] years old.
</body></html>
[download]

[reply]
[d/l]
[select]


We don't bite newbies here... much
	PerlMonks