Proxy Checker

Some of you guys asked me if I have something to check the active proxies inside a generic ProxyList.txt ( If you wanna download the list please read the this: WEB-Clicker ).

BTW, why don't you write some more comments on my blog instead of write me tons of emails ? Just kidding.. emails are fine !

Of course I have it. here it is .

############################################

#!/usr/bin/perl

# Proxy Checker

# http://marcoramilli.blogspot.com

############################################

use WWW::Mechanize;

@proxy=`cat proxy.lst`;

foreach $i (@proxy) {

chomp($i);

my $go = WWW::Mechanize->new( agent=> "Mozilla/5.0" );

$go->proxy(['http'], 'http://'.$i.'/');

$go->get('http://www.whatismyip.com');

$match = $go->content;

# print "$match\n";

my($crap,$ip)=split(/^(.*):/,$i);print "$i -> ";

if ($match =~ m/(.*)Your IP Is $ip(.*)/ ) { print "Ok.\n";

open(LOG,">> proxy.log"); print LOG "$i\n"; close(LOG);

}

else { print "Nop\n"; }

}

BTW, why don't you write some comments instead to email me ? :D

Just kidding, emails are fine.