Форум АНТИЧАТ
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   Perl скрипт. Заставить работать через прокси! (https://forum.antichat.xyz/showthread.php?t=72037)

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

Xszz 30.05.2008 13:37
Хоть бы скрипт выложил =)

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

Xszz 30.05.2008 13:41
давай

Xszz 30.05.2008 13:43
И проксик рабочий найди , http шный =)

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

biophreak 30.05.2008 15:11
Хм...а чего там сложного?
Чтото типа того...
Код:
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-- 30.05.2008 18:29
if lwp in use

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

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

Piflit 30.05.2008 18:34
Цитата:
Сообщение от genom--
# $ua->proxy('http'=>"http://$proxy"); # http or socks
носки вроде не пашут


Время: 17:49
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице