gethost01.pl to HTML.

index -|- end

Generated: Sun Aug 21 11:11:04 2011 from gethost01.pl 2011/08/13 1.3 KB.

#!/perl -w
# NAME: gethost01.pl
# AIM: Get the HOST IP address, using the domain name 
# 13/08/2011 - minor update - called by getip.bat
use strict;
use warnings;
use Socket;

my @names = ();
my $dbg1 = 0;   # for testing without input
my $name = '';
if (@ARGV) {
   parse_args(@ARGV);
} else {
   if ($dbg1) {
      @names = qw( nowhereknown.com geoffmclane.com home.exetel.com.au yahoo.com google.com macpcfirstaid.com
  adsl-1-169.lo1.lns1.server-access.com);
   } else {
      die "NO INPUT! Input a domain name to find the IP address ...\n";
   }
}

foreach $name (@names) {
   showIPAddress($name);
}
exit(0);

sub showIPAddress {
   my ($nm) = shift;
   print "Resolving [$nm] ...\n";
   my @addr = gethostbyname($nm);
   my $cnt = 0;
   if( !@addr ) {
      print "CAN NOT RESOLVE $nm ... $! ...\n";
      return;
   }
   @addr = map { inet_ntoa($_) } @addr[4 .. $#addr];
   foreach my $k (@addr) {
      $cnt++;
      print "$cnt: Resolves to IP [$k]\n";
   }
}

sub parse_args {
   my (@av) = @_;
   my $cnt = 0;
   while (@av) {
      $cnt++;
      my $a = shift @av; # get and move to next
      if ($a =~ /.*\.{1}.*/) {
         push(@names, $a);
      } else {
         die "Input [$a] does not appear to be an IP address of the form aaa.bbb ...\n";
      }
   } # while arguments
}


# eof - gethost01.pl

index -|- top

checked by tidy  Valid HTML 4.01 Transitional