Проблема в программировании сокетов в Perl

Question

Я пишу этот код:

 #!/usr/local/bin/perl
 use strict;
 use LWP::UserAgent;

 my $ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');
 $ua->proxy([qw(http https)] => 'http://203.185.28.228:1080' #that is just socks:port);
 my $response = $ua->get("http://www.google.com");
 print $response->code,' ', $response->message,"\n";

но когда я его выполняю, я получаю эту ошибку: 500 Не удается подключиться к 203.185.28.228:1080 (подключение: время ожидания)

что я собираюсь делать?

Answer 1

Я протестировал ваш скрипт, все нормально, однако я получил единственную ошибку с

$ua->proxy([qw(http https)] => 'http://203.185.28.228:1080' #that is just socks:port);

В комментариях не должно быть '()', т.е.

$ua->proxy([qw(http https)] => 'http://203.185.28.228:1080'); #that is just socks:port

Кроме того, проверьте подключение к Интернету. Ниже приведен вывод, полученный из вашего сценария.

200 Assumed OK

Answer 2

это SOCKS5? Требуется ли от вас аутентификация? (посмотрите на ваши настройки Firefox / IE, если они используют один и тот же прокси)