Logo Море(!) аналитической информации!
IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware
Архив форумов ЦИТФорума
Море(!) вопросов - Море(!) ответов
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 
Как правильно задавать вопросы

PERL. Как вывести результат скрипта в SHTML

 
Перейти:  
Этот форум закрыт, вы не можете писать новые сообщения и редактировать старые.   Эта тема закрыта, вы не можете писать ответы и редактировать сообщения.    Список форумов Архив форумов ЦИТФорума -> Создание веб-сайтов
Предыдущая тема :: Следующая тема  
Автор Сообщение
Romani



Зарегистрирован: 15.12.2007
Сообщения: 2

СообщениеДобавлено: Сб Дек 15 2007 16:31    Заголовок сообщения: PERL. Как вывести результат скрипта в SHTML Ответить с цитатой

Я пишу на перле сайт... новичок еще...

в Index.shtml Сделал Форму которая передает все значения в Perl файл и там обрабатывается....

После обработки file.pl на экран выводится значение Print.

Подскажите как сделать чтобы на экран выводилась страница со всеми стилями и таблицами как в Index.html но только в ней вместо формы было значение file.perl ????

В file.perl можно написать print "<html> и ..... ";
но у меня очень много тэгов ... чтобы каждому из них в file.pl писать print


Содержимое file.pl
#!/usr/bin/perl

require("cgi-lib.pl");
require("pvd-lib.pl");
print &PrintHeader;
@in=int &getheader();

use DBI;

my $dbh = DBI->connect("DBI:mysql:database=foxel; host=localhost", "root", "", {'RaiseError' => 1});

print "<HTML>";
print "<HEAD></HEAD>";
print "<BODY>";


$fio = $in{"fio"};
$login = $in{"login"};
$pass = $in{"login"};
$email = $in{"login"};


$dbh->do("INSERT INTO data VALUES (NULL, '$fio', '$login', '$pass','$email' )");

print "Регистрация прошла успешно";
print "</BODY></HTML>";
$dbh->disconnect();

мой index.shtml содержит огромное количество тэгов...и это просто смерть если в File.pl придется писать print ////

Может есть какое решение ?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Alex_soldier



Зарегистрирован: 08.08.2007
Сообщения: 57
Откуда: Россия

СообщениеДобавлено: Пн Дек 17 2007 14:04    Заголовок сообщения: Ответить с цитатой

Примитивный вариант:
делаешь вывод скрипта не на экран, а в файл скажем rez.txt.
Затем пересыка на rez.shtml содержащий:
Код:
<!--#include virtual="_top.txt"-->
<!--#include virtual="rez.txt"-->
<!--#include virtual="_bottom.txt"-->


А вообще в perl должна быть функция - аналог include - подключение другого файла.
_________________
Мир Идей
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
Romani



Зарегистрирован: 15.12.2007
Сообщения: 2

СообщениеДобавлено: Ср Дек 19 2007 03:13    Заголовок сообщения: Ответить с цитатой

Но уменя то грузится file.pl после выполнения скрипта....

А не index.shtml

там функция <!--#exec cgi ="/cgi-bin/file.pl"-->

А как перенаправление сделать?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Alex_soldier



Зарегистрирован: 08.08.2007
Сообщения: 57
Откуда: Россия

СообщениеДобавлено: Ср Дек 19 2007 12:29    Заголовок сообщения: Ответить с цитатой

Навскидку нашел это:
http://www.qaki.ru/help_perl_491.html

К сожалению с Perl слишком мало знаком, но по аналогии с PHP может работать такая вещь:
require "_top.txt";
_________________
Мир Идей
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
C37



Зарегистрирован: 09.03.2005
Сообщения: 311

СообщениеДобавлено: Ср Дек 19 2007 14:28    Заголовок сообщения: Ответить с цитатой

<!--#exec cmd="/путь/к/cgi-bin/file.cgi"--> позволяет вставить на место директивы вывод file.pl. В руководстве Apache есть описание проверки условия, напр. <!--#if expr="!${QUERY_STRING}" --> позволит сделать что-то, если не установлена переменная QUERY_STRING, т.е. форма не отсылалась. В таком случае можно использовать <form action="index.shtml">.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Этот форум закрыт, вы не можете писать новые сообщения и редактировать старые.   Эта тема закрыта, вы не можете писать ответы и редактировать сообщения.    Список форумов Архив форумов ЦИТФорума -> Создание веб-сайтов Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2002 phpBB Group
Русская поддержка phpBB

 

IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware

Информация для рекламодателей PR-акции, размещение рекламы — adv@citforum.ru,
тел. +7 495 6608306, ICQ 232284597
Пресс-релизы — pr@citforum.ru
Послать комментарий
Информация для авторов
This Web server launched on February 24, 1997
Copyright © 1997-2000 CIT, © 2001-2006 CIT Forum
Внимание! Любой из материалов, опубликованных на этом сервере, не может быть воспроизведен в какой бы то ни было форме и какими бы то ни было средствами без письменного разрешения владельцев авторских прав. Подробнее...