Você pode fazer isso com chamadas padrão do sistema. Aqui está um exemplo em Perl:
use strict; use warnings;
use Socket;
use Data::Dumper;
my @addresses = gethostbyname('google.com');
my @ips = map { inet_ntoa($_) } @addresses[4 .. $#addresses];
print Dumper(\@ips);
produz a saída:
$VAR1 = [
'74.125.127.104',
'74.125.127.103',
'74.125.127.105',
'74.125.127.106',
'74.125.127.147',
'74.125.127.99'
];
(Na linha de comando, o mesmo script pode ser escrito como: perl -MSocket -MData::Dumper -wle'my @addresses = gethostbyname("google.com"); my @ips = map { inet_ntoa($_) } @addresses[4 .. $#addresses]; print Dumper(\@ips)'
)
Você pode fazer isso de maneira semelhante em outros idiomas - veja a página man do
chamadas do sistema em man -s3 gethostbyname
etc.