DNS

[Honza Pazdziora]

On Tue, 2 Nov 1999 20:23:01 +0100, Janek <Janek na isse.lipniknb.cz> wrote:
> O tom dotazu vim, ale potrebuju presnej opak, podle manu to nefunguje :(

Zajimave zajimave, co to je nefunguje?

use strict;
use Socket;
my @data = gethostbyaddr(pack("C4", split /\./, shift), AF_INET);
print "$data[0]\n";
__END__

Pro vstup 208.201.239.50 (coz je adresa www.perl.com) mi to da
salt.songline.com, coz je (kontrolovano nslookupem) spravne. Puvodne
jsem Vam to chtel predvest na www.microsoft.com, ale kdyz oni maji
spadene reverzni DNS. Nu coz.

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 .project: Perl, DBI, Oracle, MySQL, auth. WWW servers, MTB, Spain, ...
------------------------------------------------------------------------