ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch7/numtoname

Text File | 1992-10-18 | 196 b | 9 lines

sub numtoname {
    local($_) = @_;
    unless (defined $numtoname{$_}) {
    local(@a) = gethostbyaddr(pack('C4', split(/\./)),2);
    $numtoname{$_} = @a > 0 ? $a[0] : $_;
    }
    $numtoname{$_};
}