VPF::В internet через Proxy - Форум программистов

demond

Дата 10.11.2008, 16:21 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 20.2.2008

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

Здравствуйте. Пытаюсь ходить в internet через proxy. Мой код выглядит так:

Код


use IO::Socket::Socks;
my $proxy_addr = "128.10.10.15";
my $proxy_port = 3128;
my $conn_addr = "http://www.mail.ru/";
my $conn_port = 80;
my $socks = new IO::Socket::Socks(ProxyAddr=>$proxy_addr,
                                  ProxyPort=>$proxy_port,
                                  ConnectAddr=>$conn_addr,
                                  ConnectPort=>$conn_port,
                                  ) or die "Can't create Sock: $!";
 
print $sock "GET ",$conn_addr," HTTP/1.0\n\n";
 
while($line = <$sock>) {
 
  print $line;
 
} 

$socks->close()

Но при запуске тишина. Ответа нет.
Если запускаешь через httpAnalyzer, то через некоторое время вываливается ошибка:

Код


Use of uninitialized value in numeric eq (==) at /opt/ActivePerl-5.8/site/lib/IO/Socket/Socks.pm line 488.
Can't create Sock:  at sock.pl line 9.

Подскажите, в чем дело? Как добиться отчета сервера?
PS LWP через proxy страницу mail.ru получает!

ginnie

Дата 10.11.2008, 16:27 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

demond, вы уверены, что у Вас именно SOCKS v5 proxy? Меня смутил порт: 3128 - стандартный порт для обычного HTTP-proxy.

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

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

demond

Дата 10.11.2008, 16:34 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 20.2.2008

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

ginnie, нет не уверен. Но думаю что так. А если это обычный proxy-сервер, какой модуль мне, имеет смысл, попробовать.Просто я думал IO::Socket::Socks универсален.

shamber

Дата 10.11.2008, 16:34 (ссылка)

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

Загрузка ...

Эксперт

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

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

ginnie, а мне казалось что 8080 - стандартный порт для HTTP proxy а 3128 как раз для socks smile

Добавлено @ 16:36
IO::Socket универсален smile

просто нужно написать недостающие части smile

PS можно еще использовать LWP, у него есть поддержка http proxy

Это сообщение отредактировал(а) shamber - 10.11.2008, 16:41

ginnie

Дата 10.11.2008, 16:46 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

shamber, для socks стандартный 1080.

Цитата(shamber @ 10.11.2008, 16:34

)

IO::Socket универсален просто нужно написать недостающие части

Разговор про IO::Socket::Socks, а не про IO::Socket smile

Добавлено @ 16:49
demond, если у Вас обычный HTTP-proxy, можно попробовать сделать как в исходном варианте, только без IO::Socket::Socks, просто через IO::Socket (т.е. соединение устанавливать с proxy, а запрос делать для 'http://www.mail.ru/').

Это сообщение отредактировал(а) ginnie - 10.11.2008, 16:55

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

demond

Дата 10.11.2008, 17:06 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 20.2.2008

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

ginnie,большое спасибо! через IO::Socket прокатило. smile

shamber

Дата 10.11.2008, 17:27 (ссылка)

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

Загрузка ...

Эксперт

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

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

ginnie, про порт, почитал, понял что ошибался smile

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