Perl скрипт. Заставить работать через прокси!

[NeOz]

Ребят нужна ваша помощь!
ВОобщем есть perl скрипт для vkontakte.ru, нужно заствить его работать через прокси.
Кто поможет?
В подарок шестизнак подарю))

[Xszz]

Хоть бы скрипт выложил =)

[NeOz]

В ПМ щас кину)
Скрипт просто хороший, пока не хочу в паблик выкладывать))

[Xszz]

давай

[Xszz]

И проксик рабочий найди , http шный =)

[NeOz]

проксики вот тут есть, http://proxy.shternov.ru/
)))
оч. надеюсь на тебя!))

[biophreak]

Хм...а чего там сложного?
Чтото типа того...

use IO::Socket;
my $cmd;
my($host,$port) = ('127.0.0.1',3128);
my $proxy=IO::Socket::INET->new($host, $port) or print "Can not connect!\n";
$cmd = "GET http://www.vkontakte.ru/index.php HTTP/1.0\n";
$cmd .= "Host: www.vkontakte.ru\n";
$cmd .= "Referer: None\n";
$cmd .= "Pragma: No-Cache\n";
$cmd .= "User-Agent: Mozilla(Perl Version)\n";
$cmd .= "\n";
$cmd =~ s/\n/\015\012/g;
print $proxy $cmd;
while(my $line = <$proxy>)
{
print "$line\n";
}


Код не проверял, но суть понятна :)

[genom--]

if lwp in use

# $proxy='127.0.0.1:8080';
# $ua->proxy('http'=>"http://$proxy"); # http or socks

[NeOz]

спасибо genom уже сделали)
Кстати не подскажите в чем различие между http proxy и socks ?

[Piflit]

# $ua->proxy('http'=>"http://$proxy"); # http or socks
носки вроде не пашут

[biophreak]

Различие собственно в самом протоколе...почитай Rfc, думаю, поймешь :)

[Xszz]

# $ua->proxy('http'=>"http://$proxy"); # http or socks
носок не будет работать , насколько я осведомлен.