SSI в Perl - Веб-программирование

Makc · 02.02.2004, 12:06

Всем привет.
У меня такой вопрос - каким образом в Perl'e можно сделать поддержку SSI?
Поясню: у меня есть Perl-скрипт, есть шаблонные html-файлы. Из этих html инфма должна вставляться как в другие html, так и в perl и php-скрипты.

Для html это:

Код:

<!--#include virtual="/file.html" -->

Для PHP:

PHP код:


			
<? virtual("/file.html"); ?>

А вот для Perl как?

Goryn · 03.02.2004, 14:10

Вставляешь в нужном месте скрипта следующим фрагмент:

Код:

 open HLC, "path_from_script/file.html";
 print <HLC>;
 close(HLC);

где "path_from_script" - локальный путь от каталога скрипта до твоего шаблона.
Если работать не будет иногда необходимо предоставить на html-файл полные права доступа rwx-rwx-rwx. Но, как правило, обходятся без этого, если нужно только прочесть и вывести.

02.02.2004, 12:06	# 1
Makc ::VIP:: Регистрация: 13.08.2003 Адрес: Москва Сообщения: 1 137	SSI в Perl Всем привет. У меня такой вопрос - каким образом в Perl'e можно сделать поддержку SSI? Поясню: у меня есть Perl-скрипт, есть шаблонные html-файлы. Из этих html инфма должна вставляться как в другие html, так и в perl и php-скрипты. Для html это: Код: <!--#include virtual="/file.html" --> Для PHP: PHP код: `<? virtual("/file.html"); ?>` А вот для Perl как? __________________ Makc aka Maximus (on other boards)

03.02.2004, 14:10	# 2
Goryn ::VIP:: Регистрация: 06.03.2003 Адрес: DZ, LBP, Moscow Пол: Male Сообщения: 633	Вставляешь в нужном месте скрипта следующим фрагмент: Код: open HLC, "path_from_script/file.html"; print <HLC>; close(HLC); где "path_from_script" - локальный путь от каталога скрипта до твоего шаблона. Если работать не будет иногда необходимо предоставить на html-файл полные права доступа rwx-rwx-rwx. Но, как правило, обходятся без этого, если нужно только прочесть и вывести. __________________ Меня многие спрашивают, как я живу с тремя головами... На самом деле, я триедин, как Великие Бобы!