HTML::Template

Perl

Perlでhtmlを吐き出すのが汚ないと今日この頃。

そろそろHTML::Templateとかと使いはじめると意外と使いやすかったので、メモ。


test.tmpl

<html>
  <head>
    <title>Template</title>
  </head>
  <body>
    <b>I'm <TMPL_VAR NAME=MSG>.</b>
  </body>
</html>

test.pl

#!/usr/bin/env perl

use strict;
use HTML::Template;

my $template = HTML::Template->new(filename=>"test.tmpl");

$template->param(MSG=>"HOME");

print "Content-Type: text/html\n\n",$template->output;

1;

output

<html>
  <head>
    <title>Template</title>
  </head>
  <body>
    <b>I'm HOME.</b>
  </body>
</html>


ref

HTML::Template - CGI スクリプトから HTML テンプレートを使うための Perl モジュール 【perldoc.jp】