perl - 批量转换域名到IP

Question

我有一个域列表，我想将其转换为各自的 IP。比方说:

domain1.com
domain2.com
域名3.com

我想获取其中每个域的IP，例如:

domain1.com -> 111.111.111.111
domain2.com -> 222.222.222.222
domain3.com -> 333.333.333.333

我正在使用我在网上找到的 Perl 脚本，并将我的域列表添加到它说的地方:

echo "
<insert_list>
" | perl -MSocket -lne'
my $address = ( split /:/ )[ 0 ] or next;
my $number  = inet_aton $address;
my $ip      = inet_ntoa $number;
print "$address -> $ip";
'

这行得通，但是我列表中的一些域已经过期并且不再有 IP，在这种情况下我会收到以下错误消息:

Bad arg length for Socket::inet_ntoa, length is 0, should be 4 at -e line 4, <> line 9.

我想要一份打印列表，它还可以告诉我域是否未分配。示例:

domain1.com -> 111.111.111.111
domain2.com -> 222.222.222.222
domain3.com -> 333.333.333.333
domain4.com -> 未知主机

我的列表相当长:我有大约 500 个域需要整理和清理。获取每个域的 IP 的最佳方法是什么？

如有任何帮助，我们将不胜感激。谢谢!

Answer 1

尝试将 $ip 分配行更改为:

my $ip = $number ? inet_ntoa $number : "Unknown Host";

这会检查 $number 变量以查看它是否为空，只有当它不是时，它才会调用 inet_ntoa 将地址转换为可打印的形式.如果 $number 为空，它会分配字符串“Unknown Host”。