«

On Sat, 31 Jan 2009 08:53:47 -0800, "John W. Krahn"
<> wrote:

>#!/usr/bin/perl
>use warnings;
>use strict;
>use Socket;
>
>while ( <> ) {
> chomp;
> my ( $address, $port ) = split /:/ or next;
> my $number = inet_aton $address;
> my $name = gethostbyaddr $number, AF_INET;

Considering that NOT ALL IPs can be resolved to host or FQDN name
correctly, it may be more robust adding this line here:

$name ||= '?';

> print "$address:$port -> $name:$port\n";
> }
>
>__END__

--
..: Hongyi Zhao [ hongyi.zhao AT gmail.com ] Free as in Freedom :.