12345678910111213 #! /usr/bin/perluse strict; use Socket; my $iaddr = inet_aton("127.0.0.1"); # or whatever address my $name = gethostbyaddr($iaddr, AF_INET); # or going the other way my $straddr = inet_ntoa($iaddr); print $straddr;
#! /usr/bin/perl
use strict;
use Socket;
my $iaddr = inet_aton("127.0.0.1"); # or whatever address
my $name = gethostbyaddr($iaddr, AF_INET);
# or going the other way
my $straddr = inet_ntoa($iaddr);
print $straddr;