Mega Code Archive

 

Categories / Perl / Network

 

The gethostbyname function searches for an etchosts entry that matches a specified machine name

# The syntax is (name, altnames, addrtype, len, addrs) = gethostbyname (inname);  #!/usr/local/bin/perl  $machine ="123.1.1.1";  if (!(($name, $altnames, $addrtype, $len, @addrlist) = gethostbyname ($machine))) {      die ("Machine name $machine not found.\n");  }  print ("Equivalent addresses:\n");  for ($i = 0; $i < @addrlist; $i++) {      @addrbytes = unpack("C4", $addrlist[$i]);      $realaddr = join (".", @addrbytes);      print ("\t$realaddr\n");  }