Como saber o Host pelo IP

[CzarSuvorov]

Script em PERL..

Autor: David Efflandt

#!/usr/local/bin/perl 
# 
# Traduzido por Capiroto 
#  
#  Autor: David Efflandt <efflandt@xnet.com> 
# 
#  Coloque o IP diretamente do teclado ou cole 
#  Loop adicionado para multiplas execucoes 
# 
print "\nColoque somente o numero do IP.\n"; 
print "Pressione [enter] Depois de colocar o numero do IP.\n\n"; 
print "Coloque o numero do IP: "; 
$ip = <STDIN>;chop($ip); 
while ($ip) {  @numbers = split(/\./, $ip); 
  $ip_number = pack("C4", @numbers); 
  ($name) = (gethostbyaddr($ip_number, 2))[0]; 
  if ($name) { 
    print "O host e: $name"; 
  } else { 
    print "IP nao encontrado"; 
  } 
  print "\n\nColoque o numero do IP: "; 
  $ip = <STDIN>; 
  chop($ip); 
}  

[JeanM]

Eu gostei.

[Alison_PC]

Pena que serve somente com hosts dedicados, que tenham o "nome" direto no IP ...

no php tbm existe essa funcao, gethostbyaddr();, e faz a mesma coisa