Help for this page

Select Code to Download


  1. or download this
    #/usr/bin/perl -w
use strict;
...
my @addresses = gethostbyname($host)   or die "Can't resolve $host: $!
+\n";
@addresses = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
print "The next set is @addresses \n";
  2. or download this
    #/usr/bin/perl -w
use strict;
...
my @addresses = gethostbyname($host)   or die "Can't resolve $name: $!
+\n";
@addresses = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
print "The next set is @addresses \n";