VPF::Как с помощью сокета сгенерировать POST запрос

Дмитрий

Дата 11.7.2003, 05:32 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как с помощью сокета сгенерировать POST запрос к скрипту через 80 порт. Я знаю как GET творить, это просто (там в URL-e его задаёш).

А вот как POST запрос c параметром DIMA и значением 34343 сделать к скрипту http://www.localhost.ru/cgi.pl не качивая его страницу (через сокет)?

NightGoblin

Дата 11.7.2003, 08:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1021
Регистрация: 24.11.2002
Где: 127.0.0.1

Репутация: нет
Всего: 11

Хм... не совсем понял, что тебе нужно, но все же:
----
Запрос типа GET:

GET /cgi-bin/test?DIMA=34343 HTTP/1.0

<ответ>
----
Запрос типа POST:

POST /cgi-bin/test HTTP/1.0
Content-Length: 10

DIMA=34343
<ответ>

--------------------

Kernel panic: /dev/null overflow!
GCS/IT/MU/O d-@ s: a- C++$>++++$ ULSB(+++) P+++ L+++>++++ !E W++(-) N o? K w-- O? M>+ V? PS+ PE Y+ PGP+>+++ t- 5 X+ R- !tv b+ DI+ D+ G e++ h--- r++ y?
B4F1 54B6 8738 26CD 5125 0581 B923 9273 FE59 1981

Дмитрий

Дата 17.7.2003, 05:48 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ой! Не понятно. Можно примерчик?
Вот скрипт http://ya.ru/cgi.pl
Туда мне нужно отослать (пары ключь=знчение):
nick=dima
sex=0
[email protected]

как это будет?

ming

Дата 29.10.2010, 13:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 30.1.2009
Где: Новосибирск

Репутация: нет
Всего: 3

Код


use IO::Socket;
my $sock = new IO::Socket::INET (
    PeerAddr => 'ya.ru',
    PeerPort => '80',
    Proto => 'tcp',
) or die "$!";

print $sock "GET /cgi.pl HTTP/1.0\n";
print $sock "\n";

my $line;
while ($line = <$sock>) {
    print $line, "\n";
}
close($sock);

с POST по аналогии, как указал NightGoblin

shamber

Дата 29.10.2010, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: нет
Всего: 18

ming, Вас год не интересует? smile

ming

Дата 29.10.2010, 13:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 97
Регистрация: 30.1.2009
Где: Новосибирск

Репутация: нет
Всего: 3

вот это я дал маху... извините smile

Это сообщение отредактировал(а) ming - 29.10.2010, 13:42

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »