うまいぼうぶろぐ

linuxとhttpdとperlのメモ

perl - HTML::FillInForm

cgiのデータをformに反映させる。formでサブミットされて、一部パラメータが不足しているときに再表示させる場合など。

my $query = CGI->new;
## $queryの処理
my $tmp   = HTML::Template->new(
  filename => 'file.tmpl',
  associate => $query,
);
my $form = HTML::FillInForm->new;
my $html = $form->fill(
  scalarref => \$tmpl->output,
  target    => "form_name",
  fobject   => $query,
);