Народ просветите, при передаче из формы методом 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;

Просто, но не работает.

• RE: траблсы со скриптом,konst, 18:56 , 05-Мрт-03
  • RE: траблсы со скриптом,clucluc, 20:23 , 05-Мрт-03
• RE: траблсы со скриптом,uldus, 10:12 , 06-Мрт-03
  • RE: траблсы со скриптом,clucluc, 12:06 , 06-Мрт-03

Может можно проще (если в html-коде <form>...<..name=in value=...>...</form>)
$in = param('in'); #((use CGI qw(param);))

>Может можно проще (если в html-коде <form>...<..name=in value=...>...</form>)
>$in = param('in'); #((use CGI qw(param);))

Да нет не получаеться, весь прикол в том что консольный вариант катит, к тому же используя метод GET, все рулит. Вот мне и интересно стало, почему ?

>use CGI qw(:standard);
>read(STDIN,$in, $ENV{'CONTENT_LENGTH'});

У тебя модуль CGI уже все за тебя прочитал :-) Убери use CGI или переставь за read(...).

>>use CGI qw(:standard);
>>read(STDIN,$in, $ENV{'CONTENT_LENGTH'});
>
>У тебя модуль CGI уже все за тебя прочитал :-) Убери use
>CGI или переставь за read(...).

Thanks, все рулит. :-)
Если не трудно кинь ссылу на спецификацию модуля CGI