You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
7 lines
289 B
Perl
7 lines
289 B
Perl
Format: gethostbyaddr(ADDRESS, DOMAIN_NUMBER);
|
|
|
|
#!/bin/perl
|
|
$address=pack("C4", 127,0,0,1);
|
|
($name, $aliases, $addrtype, $length, @addrs) = gethostbyaddr($address,2);
|
|
($a, $b, $c, $d) = unpack ( 'C4', $addrs[0]);
|
|
print "Hostname Is $name and the Internet address Is $a.$b.$c.$d.\n"; |