facebook twitter hatena line google mixi email

Perl/html-templateメモ

提供: 初心者エンジニアの簡易メモ
移動: 案内検索

perl html::templateのインストール

  1. http://www.cpan.org/
  2. perl modulesへ
  3. categoryへ
  4. 15_World_Wide_Web_HTML_HTTP_CGI/ へ
  5. HTML/のHTML-Template-2.9.tar.gzをダウンロード
  6. 解凍してtemplate.pmのみをusr/lib/html/template.pmへコピー

helloworld

index.cgi

#!/usr/bin/perl
print "Content-Type: text/html\n\n";
use HTML::Template;
my $template = HTML::Template->new(filename => 'test.tmpl', vanguard_compatibility_mode => 1, die_on_bad_params => 0);
#$template->param(test1 => 1);
#$template->param(test2 => 0);
$temp{test1} = 1;
$temp{test2} = 0;
$temp{info} = [{"name" => "name1", "job" => "job1"}, {"name" => "name2", "job" => "job2"}];

$vars = \%temp;

use Data::Dumper;
print Dumper($vars);

$template->param($vars);
print $template->output;

test.tmpl

<br>
<br>
<TMPL_VAR NAME=test1><br>
<TMPL_VAR NAME=test2><br>

%test1%<br>
%test2%<br>

<TMPL_IF NAME=test1>
aaa<br>
</TMPL_IF>

<TMPL_LOOP NAME=info>
  Name: <TMPL_VAR NAME=name> <br>
  Job:  <TMPL_VAR NAME=job>  <br>
</TMPL_LOOP>