Mega Code Archive

 

Categories / Perl / Network

 

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";