|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Ivan Frolcov 2:5020/400 05 Aug 2002 09:10:03 To : Roman Onufryk Subject : Re: Mysql+HTML::Template -------------------------------------------------------------------------------- > > <TMPL_LOOP NAME=RECORD> > > <tr bgcolor="#FFFFFF"> > > <td><TMPL_VAR NAME=Name></td> > > <td><TMPL_VAR NAME=Surname></td> > > <td><TMPL_VAR NAME=Phone></td> > > <td><TMPL_VAR NAME=Adress></td> > > <td><TMPL_VAR NAME=Birth></td> > > </tr> > > </TMPL_LOOP> > > [...] > >my $template = HTML::Template->new(filename=>'../template.html'); > >$template -> param(RECORD=>[{@Qarr}]); > >#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ > >print "Content-Type: text/html\n\n"; > >print $template -> output; > > > Естественно, этот фрагмент не работает так, как надо - он выводит только > последнюю запись. > Hасколько я знаю, нужно поменять подчеркнутые строки. Первая формирует > нужный массив, а вторая определяет для шаблона. > Hадо как-то хитро это все сформировать, какие-то "массивы массивов хэшей" - > не могу сам вдуплиться, как это сделать. Тебе нужно передать в param что-то вроде следующего: RECORD=>[ { Name => 'Вася', Surname => 'Пупкин', Phone => '02', Adress => 'Петровка, 38', Birth=>'25.10.1917' }... ] Соответственно, тебе надо что-то в духе push @Qarr,{%Qhash}; и RECORD => [@Qarr] --- ifmail v.2.15dev5 * Origin: MTU-Intel ISP (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/9104b9686191.html, оценка из 5, голосов 10
|