Proxy Scaner ? Upomoc :)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 : $@\n" ;
} else {
close($socket,2);
print $ip_add,":", $port_num ," OK\n" ;
}
}
}
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 : $@\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.
