Прога для сбора/проверки прокси?

[Satell]

сбор из бесплатных листов в вебе или сканирование и запись в файл, все прямо на сервере, перл или пхп, есть такая?

[KREST]

я с сайта беру на халяву педко,но чаще покапаю.....,а проверка прокси....блин,непомню название,если чуть позже только напишу,щас уходить надо....

[gizmo]

Proxy Checker v7xx
Forum proxy leecher , proxy grabber - сбор

[nc.STRIEM]

Парсер проксей с сайта http://proxy4free.com
https://forum.antichat.ru/showpost.php?p=266307&postcount=30

p.s. 555 пост ;)

[Satell]

спасибо! а есть такая же многопоточная? на серверах ведь стоит ограничение времени выполения скрипта вроде, если на проверку каждого прокси 5-10 сек, все не успеет проверить...

[nc.STRIEM]

set_time_limit(0);

[pop_korn]

#!/usr/bin/perl

use LWP::Simple;
use LWP::UserAgent;

if(@ARGV < 1) { usage(); }
$url = @ARGV[0];
$url_c = "http://ya.ru";
greap();
filter();

sub greap(){
$content = get $url ;
die "Couldn't get $url" unless defined $content;
while ($content =~
/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,5})/g){
push @proxy,$1;};
};

sub filter(){
$n=0;
for $a (@proxy){
my $ua = LWP::UserAgent->new;
$ua->proxy(http=>"http://$a/");
$ua->timeout(5);
$response = $ua->get("$url_c" );
open(PROXY,">>good_proxy.txt");
if ($response->is_success) {
print (PROXY "$a\n");
}
else { $n++; }
}
close(PROXY);
print "bad proxys: $n\n";
}

sub usage(){

print
"================================================== =======================\r\n";
print "proxy graber by pop_korn \r\n";
print " Usage: proxy.pl <url>\r\n";
print " <url> - url a site with proxy for example: \r\n";
print "http://www.samair.ru/proxy/,
http://proxy.asechka.ru/index.php?page=proxylist \r\n";
print
"================================================== ========================\r\n";
exit();
}