Perl gethostbyaddr Function
This function Contacts the system's name-resolving service, returning a list of information for the host ADDR of type ADDRTYPE, as follows: ($name, $aliases, $addrtype, $length, @addrs)
The @addrs array contains a list of packed binary addresses. In a scalar context, returns the host address.
Following is the simple syntax for this function:
gethostbyaddr ADDR, ADDRTYPE
This function returns undef on error and otherwise host name in scalr context and empty list on error otherwise host record in list context.
Following is the example code showing its basic usage:
#!/usr/bin/perl use Socket; $iaddr = inet_aton("127.1"); # or whatever address $name = gethostbyaddr($iaddr, AF_INET); print "Host name is $name\n";
When above code is executed, it produced following result
Host name is ip-50-62-147-141.ip.secureserver.net