Network Perl

  1. Home
  2. Perl
  3. Network
  4. Translating hostnames into IP addresses
#!/usr/bin/perl
use Socket;
my $packed_address = gethostbyname("localhost");
unless ($packed_address) {
    print "$_ => ?\n";
    next;
}
my $dotted_quad    = inet_ntoa($packed_address);
print "$_ => $dotted_quad\n";