Xpoint
   [напомнить пароль]

perl and socks proxy

Метки: [без меток]
2007-05-18 05:08:15 [обр] v0l4arrra[досье]
сообщение промодерировано

Привет всем)
Просьба не кидать в меня помидорами, но я новичок.
Мне нужно организовать работу модуля LWP через сокс) читал статьи на форуме, но все равно не понял как организовать конкретную работу, примеров программ в гугле не нашел
моя прога работает через локальный http прокси

#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;

my $ua=LWP::UserAgent->new();
$ua->timeout(5);
$ua->agent("Mozilla/5.0");
$ua->proxy('http', 'http://127.0.0.1:8080');

my $url="http://ccardzzz.narod.ru/socks.txt";

my $document=$ua->request(HTTP::Request->new(GET => $url));

print "Content-type: text/html\n\n";
print $document->content,"\n";

Вопрос: как с помощью модуля perldoc LWP::Protocol::http::SocketUnix заставить ее работать через сокс?

спустя 6 часов [обр] Алексей Севрюков(61/1292)[досье]

v0l4arrra[досье] А что непонятно? Там же в описании сказано следующее:

  use LWP::Protocol::http::SocketUnix;
  LWP::Protocol::implementor( http => 'LWP::Protocol::http::SocketUnix' );

Вы пробовали добавлять этот код в самое начало программы (после use разумеется)?

спустя 8 часов [обр] v0l4arrra[досье]

да пробовал, пишу:
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;
use LWP::Protocol::http::SocketUnix;
LWP::Protocol::implementor( http => 'LWP::Protocol::http::SocketUnix' );

my $ua=LWP::UserAgent->new();
$ua->timeout(5);
$ua->agent("Mozilla/5.0");
$ua->proxy('http', 'http://64.13.89.226:7327');

my $url="http://ccardzzz.narod.ru/socks.txt";

my $document=$ua->request(HTTP::Request->new(GET => $url));

print "Content-type: text/html\n\n";
print $document->content,"\n";

500 Can't open socket ccardzzz.narod.ru//socks.txt: No such file or directory
я не понимаю - мне что руками сокет надо создавать или что?

спустя 7 минут [обр] Алексей Севрюков(61/1292)[досье]
v0l4arrra[досье] А в адресе прокси точно нужно указывать http? Помоему не нужен он там. И вообще не понимаю, а причем здесь SOCKS и Socket? Это ж разные вещи.
спустя 8 минут [обр] Алексей Севрюков(61/1292)[досье]

По поводу адреса прокси я поторопился, можно указывать и с протоколом, правда в примерах в конце еще слеш стоит, но это наверно не влияет.

Да, кстати, а Вы уверены что прокси по указанному адресу рабочий?

спустя 43 минуты [обр] v0l4arrra[досье]
да сокс абсолютно рабочий, и анонимный - попробуйте сами)
спустя 3 минуты [обр] v0l4arrra[досье]
а сокет при том, что скрипт по моему ругается на его отсутствие или я не прав?
так как в ошибке идет Content-type: text/html + пустая строка + 500 Can't open socket ccardzzz.narod.ru//socks.txt: No such file or directory
спустя 11 минут [обр] Алексей Севрюков(61/1292)[досье]
v0l4arrra[досье] Да, только в ошибке идет сообщение о том, что невозможно открыть Socket, а Socks здесь не причем.
спустя 3 минуты [обр] Алексей Севрюков(61/1292)[досье]
сообщение промодерировано
Посмотрите модули perldoc Net::SOCKS и perldoc IO::Socket::SOCKS. А как LWP::UserAgent заставить работать через SOCKS - не знаю.
спустя 41 минуту [обр] v0l4arrra[досье]
все равно спасибо)
спустя 2 дня 21 час [обр] Закиров Руслан(51/343)[досье]
Первая страница при поиске в google по LWP и Socks:
Использование Socks при работе с LWP
спустя 14 дней [обр] Сергей Чернышев(0/589)[досье]
Закиров Руслан[досье]
Приятно увидеть, что мой труд кому-то как-то пригодился ;)
Powered by POEM™ Engine Copyright © 2002-2005