VPF::Template Toolkit, передача данных для шаблона

Leshik

Дата 20.11.2006, 00:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.10.2006

Репутация: нет
Всего: нет

Привет. Помогите разобраться пожалуйста.
Вот скрипт

Код


#! perl -w

use strict;
use Template;

my @ar;
my %hash;
my $tt = Template->new;
my $data = (  ar => \@ar);


$hash{'mashine'} = 'Opera9.0';
$hash{'asd'} = 'Browser';
push (@ar, \%hash );


$tt->process('my_template', $data)
        || die $tt->error;

Вот шаблон

Код


Mashine: 
    [% ar.mashine %] [% ar.asd -%]

Мне выдаёт только вот это

Код


Useless use of a constant in void context at 123.pl line 9.
Pseudo-hashes are deprecated at c:/Perl/site/lib/Template/Service.pm line 79.
No such pseudo-hash field "template" at c:/Perl/site/lib/Template/Service.pm lin
e 79.

Объясните пожалуйста в чём моя ошибка и как сделать правильно.
Пробовал заменить

Код


$data на %data

и

$tt->process('my_template', \%data)
        || die $tt->error;

но тогда выдаёт просто надпись Mashine.

Leshik

Дата 20.11.2006, 23:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 1.10.2006

Репутация: нет
Всего: нет

Получилось сделать собственными усилиями smile

Вот скрипт:

Код


#! C:\Perl\bin\perl -w
 
 use strict;
 use Template;



my %hash;
my $tt = Template->new;
my %data ;
my @str;

print "Content-type:text/html\n\n";

$hash{'mashine'} = 'Opera9.0.';
$hash{'asd'} = 'Browser';
push (@str , \%hash);
$data{'ar'} = \@str;

    my $template = Template->new;

    $template->process("my_template", \%data)
|| die "Template process failed: ", $template->error(), "\n";

А вот и шаблон:

Код


DATA: 
[% FOREACH result = ar %]
[% result.mashine %], [% result.asd %]
 [% END %]

А вот и выдача:

Код


Content-type:text/html

DATA:

 Opera9.0., Browser

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »