Help for this page

Select Code to Download


  1. or download this
    print "Starting DNS lookup on $ip ...";
        my $h=gethost($ip);
...

        if (length($ripname{$ip})<3) {$ripname{$ip}='FAILED'};
        print "done, hostname for $ip is $ripname{$ip} !\n";    ####<-
+-- Neither is this
  2. or download this
    Summary of my perl5 (revision 5 version 6 subversion 0) configuration:
  Platform:
    osname=MSWin32, osvers=4.0, archname=MSWin32-x86-multi-thread
Build:  620