[perl][module]Template-Toolkit - PerlさんPerlくん

Template-toolkitにたくさん配列とかハッシュとか
ぶち込むことが可能です。
配列in配列
など、多重に配列やハッシュを作成して仕込みます。

配列といえば普通は
$H[0]="aaa";
$H[1]="bbb";
$H[2]="ccc";
となりますが、TTを使い始めるとこんなんじゃ足りなくなります。
自分でそのような配列を作成する場合、
push (@HAIRETSU,
{
hoge => 'aaa',
foo => 'hahaha',
prod_data => $prod_indo,
}
)
みたいに配列HAIRETSUにどんどん要素を入れていきます。それでTTにて使用します。
ちなみにTTに分投げる場合は、
my $template = Template->new;
my $sample_prod_html;
$template->process( 'template/TT_sample.html',
{
name => $name ,
a_name => $a_name ,
str => "abcd_E_${cg_no}",
hai => @HAIRETSU ,

} ,$sample_prod_html);

で、TTのテンプレートファイル内では配列に入っているデータは
[ FOREACH hai = hai %]
hoge----- ---[% hai.hoge %]
foo----- ---- [% hai.foo %]
[% END %]
で取得できるのだ。すごく便利だ。