Perl

TemplateToolkit でselectタグを楽に生成

2011年7月19日

[%#--------selectタグ生成-------------# %]

[%- MACRO select(name,start,end,default) BLOCK -%]

[%- END -%]

をcommon.tt(共通ファイル)に入れる。

[% PROCESS 'common.tt' %]で呼び出す。

使用時
[% select('visit_month',1,12,12) %]
引数（左から）：selectのname,１番目のvalue,最後のvalue,selectedするvalue

１番目のvalueから最後のvalueまでカウントアップで生成する