18 lines
590 B
Perl
18 lines
590 B
Perl
|
# The syntax is (name, altnames, addrtype, len, addrs) = gethostbyaddr (inaddr, inaddrtype);
|
||
|
|
|
||
|
|
#!/usr/local/bin/perl
|
||
|
|
|
||
|
|
$machine ="123.1.1.1";
|
||
|
|
@bytes = split (/\./, $machine);
|
||
|
|
$packaddr = pack ("C4", @bytes);
|
||
|
|
if (!(($name, $altnames, $addrtype, $len, @addrlist) = gethostbyaddr ($packaddr, 2))) {
|
||
|
|
die ("Address $machine not found.\n");
|
||
|
|
}
|
||
|
|
print ("Principal name: $name\n");
|
||
|
|
if ($altnames ne "") {
|
||
|
|
print ("Alternative names:\n");
|
||
|
|
@altlist = split (/\s+/, $altnames);
|
||
|
|
for ($i = 0; $i < @altlist; $i++) {
|
||
|
|
print ("\t$altlist[$i]\n");
|
||
|
|
}
|
||
|
|
}
|