• Здраво и добредојдовте на форумот на IT.mk.

    Доколку сеуште не сте дел од најголемата заедница на ИТ професионалци и ентузијасти во Македонија, можете бесплатно да се - процесот нема да ви одземе повеќе од 2-3 минути, а за полесна регистрација овозможивме и регистрирање со Facebook и Steam.

[PERL] Proxy Checker.

  • Ја почнал/а темата
  • #1

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! :))
 

Нови мислења

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

Статистика

Теми
42,541
Мислења
820,214
Членови
28,209
Најнов член
Mr. PoPo
На врв Дно