You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
#!/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"; |