Tihiroの頭を休めるIT教室

少しだけ頭使って後は根性

HTML::Templateでハッシュデータを表示する(自分用メモ)

概要

CGI側のPerlからHTMLにデータを受け渡したいときにHTML::Templateモジュールとかいうのを利用する。

要は↓コレよ。

perldoc.jp

perl側(色々省略)

my %hashData;
$hashData{'id'} = 0;
$hashData{'code'} = 'A';
$hashData{'name'} = 'ちっひ';

my @array =();
push(@array, \%hashData);

my $tmpl = HTML::Template->new(filename => 'Output.html', 'loop_context_vars' => true, 'die_on_bad_params' => 0);
$tmpl->param(SET_DATA => \@array);

print "Content-type: text/html";
print "¥n";
print "¥n";
print $tmpl->output;

HTML側(色々省略)

<body>
<!-- TMPL_LOOP NAME='SET_DATA' -->
  <p><!-- TMPL_VAR NAME='id' --></p>
  <p><!-- TMPL_VAR NAME='code' --></p>
  <p><!-- TMPL_VAR NAME='name' --></p>
<!-- /TMPL_LOOP-->
</body>

まとめ

CASE文とかあると本当に嬉しいけど、残念ながらないので悲しい。