Template Question

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.

Re: Template Question
by cjf-II (Monk) on Dec 12, 2002 at 07:17 UTC

The simplest way would be to just switch the variables from the $varname format to <TMPL_VAR NAME=VARNAME> and use HTML::Template (see the docs for more info).

[reply]
[d/l]
[select]

Re: Template Question
by mirod (Canon) on Dec 12, 2002 at 08:58 UTC

An other solution is to use Text::Template:

use Text::Template 'fill_in_file';
my $TEMPLATE= 'my.templ';

# ...

my $filled_template= fill_in_file( $TEMPLATE);
# I usually use the HASH option to separate variables that
# go in the template from variables in the code
# my $filled_template= fill_in_file( $TEMPLATE,
#                                    HASH => { title => $title,
#                                              fields => \%fields
#                                            }
#                                         );

print $filled_template;
[download]

In the template, variables (or any Perl code) are delimited by { ... }, you can use alternate delimiters if you want (it will be a little faster but the delimiter should not appear in the embedded code), use the argument DELIMITERS => [$open, $close]:

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html
        PUBLIC "-//W3C//DTD XHTML Basic 1.0//EN"
        "http://www.w3.org/TR/xhtml-basic/xhtml-basic10.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US">
  <head>
    <title>My Kewl Page</title>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8"
+>
  </head>
  <body>
    <h1>{$title}</h1>
    <p>Field1: {$field{field1}}</p>
   { "<p>Field2: $field{field2}</p>" if( $field{field2} }
  </body>
</html>
[download]

[reply]
[d/l]
[select]

Re: Template Question
by abell (Chaplain) on Dec 12, 2002 at 08:41 UTC

Of course there are several ways to achieve this.

Leaving the file as-is, you could apply the substitution regex

$line =~ s/(\$[a-zA-Z0-9_]+)/ eval ($1) /ge;
[download]

This should work under the assumptions that you are using only scalar variables with names consisting of "standard" characters (let me be a bit sloppy about this issue) and that the $ character only appears in variable names.

Another possibility is making up a simple template language. I like to use <:name:> for placeholders to be interpolated. If your needs are limited, you can probably hack a quite stable solution in a few minutes.

Then, along the lines of cjf-II's suggestion, you can try one of the more complete templating solutions available on CPAN.

Cheers

Antonio

The stupider the astronaut, the easier it is to win the trip to Vega - A. Tucket

[reply]
[d/l]
[select]

Re: Template Question
by stefan k (Curate) on Dec 12, 2002 at 11:30 UTC

abell

$(variablename)

foreach (keys %global_variables) {
      $content =~ s/\$\($_\)/$global_variables{$_}/g;
}
[download]

\

$

Regards... Stefan

you begin bashing the string with a +42 regexp of confusion

[reply]
[d/l]
[select]


Perl Monk, Perl Meditation
	PerlMonks