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

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

 

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

 

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

 

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

p.s. 555 пост

 

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

 

set_time_limit(0);

 

PHP:


#!/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(); 
}