http://snippets.dzone.com/posts Thu, 21 Aug 2008 01:32:40 GMT DZone Snippets: internet code http://snippets.dzone.com/posts/show/4246 When passed either an IPv4 address or the name of a domain or server, this script will return either a name or an IP, respectively. <br /><code> <br />#!/usr/bin/perl -w <br />use strict; <br />use Socket; <br />my $arg = shift; <br />if ($arg =~ /^(\d+\.){3}\d+$/) { <br /> print scalar gethostbyaddr(inet_aton($arg), AF_INET), "\n" <br />} else { printf "%vd\n", scalar gethostbyname $arg } <br /></code> Thu, 05 Jul 2007 02:24:29 GMT http://snippets.dzone.com/posts/show/4246 Minimiscience (Guildorn Tanaleth)