Forum Webscript.Ru

Программирование => Perl => Тема начата: PoKoT от 02 Февраля 2002, 04:48:52

Название: Как вставить в результат работы скрипта часть html страницы из файла?
Отправлено: PoKoT от 02 Февраля 2002, 04:48:52

Дело в следующем:
Есть несколько страниц, генерируемых скриптами (разными). Но "топ" и "лефт" у страниц одинаковые. Приходится вставлять html-код топа и лефта в каждый скрипт.
Возможно ли избежать процедуры вставки в КАЖДЫЙ скрипт одинаковых (достаточно больших) html-кодов, т.е. реализовать что-то типа SSI (два файла с html-кодом, тело которых надо вставить в скрипт)?

К сожалению, фишка по типу:
HTML-ДОКУМЕНТ

СКРИПТ
...  
$query = $ENV{QUERY_STRING};  
$uri = $ENV{DOCUMENT_URI};  
...  
print "

\\n";  
...
НЕЖЕЛАТЕЛЬНА...
Выход есть? :-))))

Название: Идиотизм, конечно, самому с собой разговаривать...
Отправлено: PoKoT от 02 Февраля 2002, 05:58:23

Идиотизм, конечно, самому с собой разговаривать... но меня лень сгубила. Как всегда, ищешь-ищешь, и только после того как людей беспокоить начал - находишь...
Мне приглянулось решение (проверил - работает):
источник - местный :-)))):
http://www.webscript.ru/stories/40
Sergey пишет:
........
Лучше создать 2 файла(верх и низ дизайна)
А в скрипт вставить следующий код:
open (HEAD, \\"up.txt\\");
while () {print};
close (HEAD);

и

open (HEAD, \\"daun.txt\\");
while () {print};
close (HEAD);
.............

Название: Сорри... дополнение...
Отправлено: PoKoT от 02 Февраля 2002, 06:06:45

Слеши только надо покранчить... у меня иначе - торба пятисотая....

open (HEAD, "daun.txt");
while () {print};
close (HEAD);

Название: Как вставить в результат работы скрипта часть html страницы из файла?
Отправлено: от 02 Февраля 2002, 15:47:17

проще сделать два скрипта top.pl и bottom.pl, в которых занести html-код через qq или еще как.

$tophtml=<.... тут код ....
END

А потом -
require top.pl;
print $tophtml;