home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 August / Chip_2000-08_cd1.bin / sharewar / dzperl / Setup.exe / {app} / Samples / hostbyip.txt < prev    next >
Encoding:
Text File  |  2000-06-15  |  161 b   |  6 lines
  1. # Get host name by IP address
  2. $ip = $ENV{'REMOTE_ADDR'};
  3. @digits = split (/\./, $ip);
  4. $address = pack ("C4", @digits);
  5. $host = gethostbyaddr ($address, 2);
  6.