15 lines
477 B
Perl
15 lines
477 B
Perl
|
# 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");
|
||
|
|
}
|