|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Vadim Tzirulnicov 2:5020/40.102 29 Nov 2003 01:08:36 To : All Subject : Трабла с сокетами -------------------------------------------------------------------------------- Главный скрипт: Пишет в сокет и принимает затем ответ: send (SOCK, "POST /cgi-bin/test.pl HTTP/1.1\nHOST: $meethost\nConnection: Keep-Alive\n". "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows XP)\nAccept: */*\nAccept-Lang". "uage: ru\nAccept-Charset: windows-1251, *, utf-8\nContent-type: multipart/form-data; boundary=---------------------------7d38c2a3cc\nContent-l". "ength: ".length($wr)."\n\n$wr", 0); @data=<SOCK>; print join("",@data); $wr - строка вида "-----------------------------7d38c2a3cc\nContent-Disposition: form-data; " (...) test.pl: sysread(STDIN,$a,$ENV{'CONTENT_LENGTH'}); open(FILE,">htmleditor/test.txt"); print FILE $a; close(FILE); print <<<HTML; (...) HTML exit(0); 1; Выводится HTTP/1.1 200 OK Date: Fri, 28 Nov 2003 21:14:17 GMT Server: Apache/1.3.26 (Win32) PHP/4.3.1 Keep-Alive: timeout=15, max=100 Connection: Keep-Alive Transfer-Encoding: chunked Content-Type: text/html f2c <html> (...) ffc (...) e00 (...) </html> Причём этих "f2c","ffc","e00" нет в исходном html-коде ! Откуда они берутся ? При натравливании главного скрипта на сайт meet.userline.ru всё ОК. Скрипт нормально запрашивает по условию и выдирает оттуда анкеты. Hо при работе с test.pl - появляются непонятные сочетания символов. С чего так ? ... А здесь могла бы быть ваша реклама... --- Team: [Ru.Znakomstva] [Mo.Apartments] [Mo.Apartments.Talk] Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/173513fc7e73d.html, оценка из 5, голосов 10
|