• Важно
    Имате проблем со најава или регистрација на it.mk?
    Побарајте го решението на вашиот проблем ТУКА!

[PERL] Proxy Checker.

S

pwnz0r1lla
8 март 2007
1.550
52
www.it.com.mk
Aj da nema podolgo vreme nishto vo temava... bump bump!

[hl='perl']
#!/usr/bin/perl
#
use WWW::Mechanize;
@proxy=`cat proxy`;


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"; }
}
[/hl]

ova mi beshe del od drug proekt zatoa ne e dovrsheno niti sredeno... Verojatno normalno bi bilo da koristam warnings
Код:
#!/usr/bin/perl -w

i chitanjeto na fajlot bi trebalo da bide na po eleganten, portable nachin za da skriptata raboti i na windows in a *nix platforma, neshto vo stilot:
Код:
open(PLIST, "proxy") or die;
foreach $i (<PLIST>) {
 ....
}

I nemora da koristam WWW::Mechanize modul, ali mi se svigja! :))
 

Нови мислења

Последни Теми

Статистика

Теми
44.303
Мислења
892.304
Членови
31.484
Огласи
19
Најнов член
Kolecolev
На врв Дно