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

IP adrese iz imena sajtova

[es] :: Perl :: IP adrese iz imena sajtova

[ Pregleda: 3951 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

kopija
web administrator
Beograd

Član broj: 991
Poruke: 47
*.f.bg.ac.yu

Sajt: www.kopija.rs/blog


Profil

icon IP adrese iz imena sajtova26.09.2001. u 00:51 - pre 274 meseci
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?
----------------------------------------------------------------------------------
"Absence of evidence is not evidence of absence!"
----------------------------------------------------------------------------------
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+165 Profil

icon Re: IP adrese iz imena sajtova03.10.2001. u 02:24 - pre 274 meseci
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..
 
Odgovor na temu

Gojko Vujovic
Amsterdam, NL

Administrator
Član broj: 1
Poruke: 13651



+165 Profil

icon Re: IP adrese iz imena sajtova03.10.2001. u 02:26 - pre 274 meseci
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
 
Odgovor na temu

prosams
Novi Beograd

Član broj: 716
Poruke: 133
*.verat.net



Profil

icon Re: IP adrese iz imena sajtova03.10.2001. u 14:55 - pre 274 meseci
Ma moze i bez scripta.
www.beocity.com/yuweb
Zlo ne postoji, već samo je dobro prisutno u maloj količini.
 
Odgovor na temu

[es] :: Perl :: IP adrese iz imena sajtova

[ Pregleda: 3951 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

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