Perl 初心者コーナー Part24
■ このスレッドは過去ログ倉庫に格納されています
0669nobodyさん
03/06/20 14:41ID:CDccIPBDどこが悪いのかわかりませんでしょうか?
for ($i=0;$i<=$num;$i++){
$ORG{$i} = {
"orgname" => $values[$orgmaster_name2seq{orgname}],
"number_per_class_max" => $values[$orgmaster_name2seq{number_per_class_max}],
"langlist" => $HTMLlanglist,
};
}
my $template = HTML::Template->new(filename => './tmpl/search_result.html');
$template->param(
ORGLIST => \@ORG
);
print $template->output;
---------------------------------------------
以下、テンプレファイル。
<!-- TMPL_LOOP NAME="ORGLIST" -->
<!-- TMPL_VAR NAME="ORGNAME" --></a></td>
<!-- TMPL_VAR NAME="LANGLIST" --></td>
<!-- TMPL_VAR NAME="NUMBER_PER_CLASS_MAX" --></td>
<!-- /TMPL_LOOP -->
■ このスレッドは過去ログ倉庫に格納されています