Архив форумов ЦИТФорума

[zhukovia]

Есть некий скрипт. В нем производятся некие действия. Как сделать чтоб на выходе этого скрипта получился .shtml документ? Т.е. чтобы сработал оператор "print '';", а то он просто игнорируется сервером (также как если вместо .shtml поставить .htm).

[Dmitry.Karpov http://prof]

-

[zhukovia]

Дак как всетаки сделать чтобы у меня после работы скрипта генерировалась (появлялась в браузере у пользователя) страничка в которую я могбы вставлять куски из других страничек?

[zhukovia]

Дак как всетаки сделать чтобы у меня после работы скрипта генерировалась (появлялась в браузере у пользователя) страничка в которую я могбы вставлять куски из других страничек?

[Dmitry.Karpov http://prof]

Ты спрашиваешь: "Как же сделать динамическую страницу?". Но Perl, как и любой CGI-скрипт, уже делает динсмическую страницу, выплевывая ее текст (HTML-код) на stdout командами print. Ну так прочитай содержимое нужного тебе файла в переменную и точно так же выведи!

PS: Ты бы хоть дал свой скрипт и файл, который надо инклюдить, а не повторял по несколько раз одно и то же!

[zhukovia]

Ну может не понимаю я чего, это ведь не повод смеятся.. Я совсем недавно стал изучать Web. Я же не от хорошей жизни спрашиваю, спросить то неукого, а в Help-ах не могу найти, а может и не там ищу.
Вот примерно такой код (это пример).
------начало----
#!/usr/bin/perl
$s=$s1+$s2;
#########
print "Content-Type: text/html;\n\n";
print '';
print "Выражение : $s1 + $s2 = $s\n";
print '';
------конец-----
в браузер выводиться только "Выражение : 1+2=3", а то что находится в "top.html" (логотип) и "down.html" (текст о создателе страници) не выводиться (в тексте генерируемой страници они так и выводятся

[Dmitry.Karpov http://prof]

open FD,"<top.html";
while ($line=<FD>) { print $line; }
close FD;

и то же самое для down.html (или корректнее - bottom.html).

[Роман]

Собираешь просто выходной файл, просто читая нужные файлы в массивы, типа такого

open (FILE, ">result.html"); #открываешь файл для записи
open (INCLUDE1, "