#!/usr/local/bin/perl -w
# phost - host command implemented in Perl
# Andrew Ho (andrew@zeuscat.com)

require 5.005;
use strict;
use Socket;

foreach(@ARGV) {
    chomp;
    s/\s+//gsm;
    my $hostname = $_;
    if(/^(\d+\.\d+\.\d+\.\d+)$/) {  # Looks like an IP
        $hostname = gethostbyaddr inet_aton($1), AF_INET;
    }
    if($hostname) {
        my @hostinfo = gethostbyname $hostname;
        if(@hostinfo) {
            my($name, @ips) = @hostinfo[0, 4 .. $#hostinfo];
            foreach(@ips) {
                my $ip = inet_ntoa $_;
                print "$name has address $ip\n";
            }
        } else {
            print "Host not found.\n";
        }
    } else {
        print "Host not found.\n";
    }
}

exit 0;
__END__