Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Proxy Scaner ? Upomoc :)

[es] :: Perl :: Proxy Scaner ? Upomoc :)

[ Pregleda: 4469 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Free_Sex
Aleksandar
Beograd

Član broj: 9601
Poruke: 616
*.vdial.verat.net



Profil

icon Proxy Scaner ? Upomoc :)25.03.2004. u 14:41 - pre 222 meseci
Desava mi se da program jednostavno stane i ceka na konekciju ....
i po 40-ak sekundi. I obicno ne dobije odgovor kada ceka tako dugo.
Jer ako je IP "pravi" on to odmah ispise.

Pokusao sam da podesim Timeout => 5 i za http user agent i sl. druge module koje sam probao da koristim ali ista stvar uvek.

Sada mislim da idem na to da ako uspe da se poveze na taj ip na proxy portu. Da ga stavim kao ok (tako ce i obicni web serveri da se pokazu kao proxy na portu 80 ali nema veze).

Evo funkcije kojom proveravam neki proxy :
Code:

sub check_proxies {
  my @list = @_;
  foreach $ip_add (@list){
      unless ($socket = IO::Socket::INET->new(PeerAddr => $ip_add,
                                PeerPort => 80,
                                Proto    => "tcp",
                                Type     => SOCK_STREAM,
                                Timeout  => 5))
       {
        #Error
        print $ip_add,":", $port_num ," ERROR : [email protected]\n" ;
       } else {
        close($socket,2);
        print $ip_add,":", $port_num ," OK\n" ;
       }
   }
}


Samo sto on i dalje po isteku 5 sekundi pokusava da se konektuje na neki ip ?
Jednostavno ovako je mnogo sporo.
Kako da zaustavim "cekanje"/pokusaj posle 5 sekundi ?

A dalje ubrzanje predpostavljam da cu da pokusam sa fork-om ili necim slicnim.

Hitno mi je ljudi ..... Hvala.
 
Odgovor na temu

[es] :: Perl :: Proxy Scaner ? Upomoc :)

[ Pregleda: 4469 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.