CGI + Perl

[DrumSe]

Мне для моего скрипта надо только чтение данных из формы и создание куки, можно ли все это сделать без CGI.pm

[Forza]

Да, конечно, можно.
CGI.pm лишь упрощает работу программера, но я не знаю ничего такого, в чём он был бы незаменим.

[DrumSe]

Дык ты не мог бы мне написать как мне получать данные из формы и создавать куки без него?!

[Chs]

DrumSe
Посмотри код CGI.pm - там все есть.

[Phoinix]

DrumSe
http://faq.webscript.ru/PFWWWParams?v=glg
Особенно рекомендую почитать последний абзац, кстати это и мое IMHO тоже... процесс просветления долог и труден...

А чем, собственно, мотивировано нежелание использовать CGI?

P.S. И в догонку - CGI_Lite - для тех кому нужно разбирать формы...

[Forza]

DrumSe:
Дык ты не мог бы мне написать как мне получать данные из формы и создавать куки без него?!

Данные из формы (пример из гостевухи, которую я "писал" в институте):

Код: [Выделить]

sub decode{
 local($string)=@_;
 $string=~s/\\+/ /g;
 $string=~s/%0D%0A/
/g;
 $string=~s/%([0-9A-F]{2})/chr(hex($1))/eg;
 return $string; }

sysread(STDIN,$input,$ENV{\'CONTENT_LENGTH\'});

  foreach(@fields=split(/&/,$input)){
    if(/^Name=(.*)/){$Name=&decode($1);}
    if(/^Email=(.*)/){$Email=&decode($1);}
    if(/^City=(.*)/){$City=&decode($1);}
    if(/^Message=(.*)/){$Message=&decode($1);}}
Как видно функция decode() плюсы заменяет на пробелы, восстанавливает конец строки и кириллицу.

А вот пример для куки (это надо выводить раньше, чем Content-Type): print "Set-Cookie: dvd_shop=8472f7bde2634b10ef58568abee7cb85; path=http://localhost/MY9.PL; expires=Thu, 29-Jul-2004 07:57:05 GMT"

[DrumSe]

2Phoinix

А чем, собственно, мотивировано нежелание использовать CGI?

1) Интерено ппоработать без него =)
2) Он очень много жрет...

[NeoNox]

DrumSe
1) твое право
2) уверен?

для всех велосипедистов рекомендуется к прочтению: use CGI or die;