0 Пользователей и 1 Гость просматривают эту тему.
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);}}
А чем, собственно, мотивировано нежелание использовать CGI?