I'm trying to get all the IP addresses for a host.
This is the nslookup output:
>>nslookup site.com
Server: 8.8.8.8
Address: 8.8.8.8#53
Non-authoritative answer:
Name: site.com
Address: 1.1.1.1
Name: site.com
Address: 2.2.2.2
I tried this code:
use Socket;
use Data::Dumper;
my $name = "site.com";
@addresses = gethostbyname($name) or die "Can't resolve $name: $!\n";
@addresses = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
print Dumper(\@addresses);
And this is the output:
['1.1.1.1'];
Anyway to get both 1.1.1.1
and 2.2.2.2
?