HTML::Template
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】