скрипт:

Код

<?php  if($_GET['send']!=1)   {    print "<form action=./index.php?send=1 method=post>           <input type=text name=login><br>           <input type=submit value=enter></form>";   }    else     {      echo $_POST['login']." - login<br>";     } ?>

и HTTP запрос туда
POST $path HTPP/1.0\n
Accept: */*\n
Accept-Language: ru\n
Content-Type: application/x-www-form-urlencoded\n
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)\n
Host: $host\n
Connection: Keep-Alive\n
Cache-Control: no-cache\n
Content-Length: 10\n
login=SOMELOGIN...

//$host = "localhost";
//$path = "/index.php?send=1";

Результат:
пустая переменная $_POST['login']..
почему?

Это сообщение отредактировал(а) kokaine - 31.12.2005, 17:57

А ты не перепутал разделы? Ты уверен, что тебе нужен Perl?

э, просто скрипт который отсылает этот запрос он на perl'e =)))

Так может его стоит и выложить? А то ты выкладываешь скрипт на PHP, а вопрос у тебя по Perl скрипту.

Это сообщение отредактировал(а) korob2001 - 1.1.2006, 14:29

сча сделаем..

Код

#!/usr/bin/perl use strict; use Socket; my $host = "localhost"; my $port = 80; my $path = "/index.php?send=1"; my $req = " POST $path HTTP/1.0\n Accept: */*\n Accept-Language: ru\n Content-Type: application/x-www-form-urlencoded\n Host: $host\n Connection: Keep-Alive\n Cache-Control: no-cache\n Content-Length: 5\n login=TroRg\n "; socket(SOCK,PF_INET,SOCK_STREAM,getprotobyname('tcp')) || die("Die: $!"); my $iaddr = inet_aton($host); my $paddr = sockaddr_in($port,$iaddr); connect(SOCK,$paddr) || die("Can't Connect!"); send(SOCK,$req,0); send(SOCK,"GET $path HTTP/1.0\n\n",0); my @data = <SOCK>; close(SOCK) || die("Can't close: $!"); print "\n"; print @data; print "\n"; system('pause'); exit 0;

все я все понял... разобрался =)