Программирование > Perl

переменные в CGI

(1/1)

Yaroslav:
если не использовать CGI, то получение переменных у нас выглядит так:

--- Код: ---if ($ENV{\'REQUEST_METHOD\'} eq "POST") { read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'}); }
else { $buffer=$ENV{\'QUERY_STRING\'}; }
--- Конец кода ---

и что б получить все что там передали можно воспользоваться print $buffer;

но используя CGI этот немер не проходит.
даже если

--- Код: ---
use CGI;
$a1=param(\'a1\');
$a1=param(\'a2\');
$a1=param(\'a3\');
if ($ENV{\'REQUEST_METHOD\'} eq "POST") { read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'}); }
else { $buffer=$ENV{\'QUERY_STRING\'}; }

--- Конец кода ---

$buffer = NULL

вообщем для логирования полных запросов надо узнать все что передали скрипту

arto:
а на какой предмет?

Навигация

[0] Главная страница сообщений