[ kopija @ 26.09.2001. 00:51 ] @
Da li neko mozda zna kako da posaljem zahtev za dobijanjem necijeg IP-a na osnovu imena sajta? Ako ste koristili ikad 'hostinfo' onda vam je mozda malo jasnije. Uglavnom, hocu da napravim skriptu koja ce da uradi ovo:
Official name: www.elitesecurity.org
Address(es): 217.26.64.254
Da li je moguce da se otvori nekoliko konekcija sa istom skriptom i da kada se dobije odgovor zatvori bas ta konekcija a ostale ostanu da cekaju svoj odgovor?
[ Gojko Vujovic @ 03.10.2001. 02:24 ] @
Evo ga najobičniji resolver:
Code:

#!/usr/bin/perl -w
 
use Net::DNS;
 
$res = Net::DNS::Resolver->new;
$query = $res->search("www.elitesecurity.org");
if ($query) {
    foreach $rr ($query->answer) {
        next unless $rr->type eq "A";
        print $rr->address, "
";
    }
}
else {
    print "Greska: ", $res->errorstring, "
";
}


Ovo treba sad jos preraditi za to sto ti hoces, vise konekcija istovremeno..
[ Gojko Vujovic @ 03.10.2001. 02:26 ] @
Evo ga, ima i rad u pozadini:

Code:

#!/usr/bin/perl -w
use Net::DNS;
$res = Net::DNS::Resolver->new;
$socket = $res->bgsend("www.elitesecurity.org");
until ($res->bgisready($socket)) {
    # Ovde ide ostatak posla, na primer drugi resolve
}
$packet = $res->bgread($socket);
$packet->print;


Naravno, instaliraj Net::DNS da bi ti sve ovo radilo. Poseti cpan.perl.org
[ prosams @ 03.10.2001. 14:55 ] @
Ma moze i bez scripta.
www.beocity.com/yuweb