форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы WEB технологии (Public)
Изначальное сообщение		[Проследить за развитием треда]

"траблсы со скриптом"
Сообщение от clucluc on 05-Мрт-03, 17:53  (MSK)
Народ просветите, при передаче из формы методом POST параметров в другой скрипт возникают проблемы. Читаю со стандартного входа в переменную $in и ничего. При этом глобалная переменная CONTENT_LENGTH принимает нужное значение. Вот кусок кода: #!/usr/bin/perl use CGI qw(:standard); print header; print start_html('Proba'); local $in; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$in, $ENV{'CONTENT_LENGTH'}); local($i,$f)=split(/=/,$in,2); print 'stdin: param=', $i,' value=', $f ,' size=', $ENV{'CONTENT_LENGTH'}; } else {print 'Method is not "POST"';} print end_html; Просто, но не работает.
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "RE: траблсы со скриптом"
Сообщение от konst on 05-Мрт-03, 18:56  (MSK)
Может можно проще (если в html-коде <form>...<..name=in value=...>...</form>) $in = param('in'); #((use CGI qw(param);))
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "RE: траблсы со скриптом"
	Сообщение от clucluc on 05-Мрт-03, 20:23  (MSK)
	>Может можно проще (если в html-коде <form>...<..name=in value=...>...</form>) >$in = param('in'); #((use CGI qw(param);)) Да нет не получаеться, весь прикол в том что консольный вариант катит, к тому же используя метод GET, все рулит. Вот мне и интересно стало, почему ?
		Рекомендовать в FAQ | Cообщить модератору | Наверх

3. "RE: траблсы со скриптом"
Сообщение от uldus on 06-Мрт-03, 10:12  (MSK)
>use CGI qw(:standard); >read(STDIN,$in, $ENV{'CONTENT_LENGTH'}); У тебя модуль CGI уже все за тебя прочитал :-) Убери use CGI или переставь за read(...).
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "RE: траблсы со скриптом"
	Сообщение от clucluc on 06-Мрт-03, 12:06  (MSK)
	>>use CGI qw(:standard); >>read(STDIN,$in, $ENV{'CONTENT_LENGTH'}); > >У тебя модуль CGI уже все за тебя прочитал :-) Убери use >CGI или переставь за read(...). Thanks, все рулит. :-) Если не трудно кинь ссылу на спецификацию модуля CGI
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.