Использование perl LWP::Protocol::socks

Тема в разделе "Другие языки", создана пользователем omega, 22 окт 2009.

Статус темы:
Закрыта.
Модераторы: Цукер
  1. omega

    omega Создатель

    Регистр.:
    21 янв 2008
    Сообщения:
    30
    Симпатии:
    10
    Не работает следующий стандартный код:
    Код:
    #!/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)] => 'socks://socks.yahoo.com:1080');
     my $response = $ua->get("http://www.freebsd.org");
     print $response->code,' ', $response->message,"\n";
     my $response = $ua->get("https://www.microsoft.com");
     print $response->code,' ', $response->message,"\n";
    
    Соотв модуль установлен:
    Код:
    sudo cpan LWP::Protocol::socks
    Вместо этого socks.yahoo.com:1080 вписан рабочий сокс.
    Если закоментировать строку $ua->proxy([qw(http https)] => 'socks://socks.yahoo.com:1080'); все работает.
    Причем скрипт не возвращает ни ошибок, ничего.

    Кто сталкивался помогите.
     
  2. t0wer

    t0wer BlackHerald

    Регистр.:
    24 июн 2008
    Сообщения:
    736
    Симпатии:
    424
    это суть в самом модуле LWP::protocol::http::socks

    почитайте тут и это по теме
     
Статус темы:
Закрыта.