Bạn có thể làm điều này với các cuộc gọi hệ thống tiêu chuẩn. Đây là một ví dụ trong 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);
tạo ra đầu ra:
$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'
];
(Trên dòng lệnh, tập lệnh tương tự có thể được viết là perl -MSocket -MData::Dumper -wle'my @addresses = gethostbyname("google.com"); my @ips = map { inet_ntoa($_) } @addresses[4 .. $#addresses]; print Dumper(\@ips)'
:)
Bạn có thể làm điều này tương tự trong các ngôn ngữ khác - xem trang hướng dẫn cho các cuộc gọi hệ thống tại, man -s3 gethostbyname
v.v.