Форум АНТИЧАТ - Показать сообщение отдельно - Прога для сбора/проверки прокси?

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(); 

}