|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 26 Mar 2002 12:54:35
To : Alexey Domanski
Subject : Re: Соединение через прокси
--------------------------------------------------------------------------------
Здравствуй, Alexey Domanski.
AD> Мучает вопрос: как установить соединение через прокси.
AD> Как соединиться через прокси сервер?
AD> Код такой:
AD> socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
AD> $host="www.tb.by";
AD> $port="80";
AD> $iaddr = inet_aton($host);
AD> $paddr = sockaddr_in($port, $iaddr);
AD> connect(SOCK, $paddr);
AD> send (SOCK,"GET
AD> /nb.phtm?currency=USD,EUR,USD/RUS&outbgcolor=ffffff&outfgcolor=000009f&inbgc
AD> ol or=ffffff&infgcolor=666600&outborder=0&inborder=1&width=120&short=1&langu
AD> age=R HTTP/1.0\nHOST:$host\n\n", 0); @data=<SOCK>; close(SOCK);
Перестать маяться дурью и воспользоваться LWP. Где есть для этого
высокоуровневый механизм. Если все совсем плохо, прочесть стандарт на протокол
взаимодействия с оными проксями. Ссылку прям вот так сразу не дам, но человек,
способный понять типичное изложение стандарта и реализовать его, достаточно
интеллектуален, чтобы найти нужное через любой поисковик за единицы минут.
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Соединение через прокси