Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > HTTP запрос

Автор: kokaine 31.12.2005, 17:56

скрипт:

Код


<?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']..
почему? smile

Автор: korob2001 1.1.2006, 05:33

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

Автор: kokaine 1.1.2006, 08:25

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

Автор: korob2001 1.1.2006, 14:27

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

Автор: kokaine 1.1.2006, 22:03

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

Код


#!/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;

Автор: kokaine 2.1.2006, 01:12

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