如何在Unix/Linux上使用perl执行批量DNS查询？

在Unix/Linux上使用Perl执行批量DNS查询，可以使用Net::DNS模块。Net::DNS是一个用于DNS查询的Perl模块，它提供了一个简单的接口来查询DNS记录。以下是一个示例脚本，用于在Unix/Linux上使用Perl执行批量DNS查询：

#!/usr/bin/perl

use strict;
use warnings;
use Net::DNS;

# 创建一个Net::DNS对象
my $res = Net::DNS::Resolver->new;

# 设置查询超时时间（秒）
$res->timeout(2);

# 设置重试次数
$res->retry(2);

# 要查询的域名列表
my @domains = qw(www.google.com www.baidu.com www.sina.com);

# 遍历域名列表，执行DNS查询
foreach my $domain (@domains) {
    print "Querying $domain...\n";

    # 执行A记录查询
    my @a_records = mx($domain);

    # 打印查询结果
    if (@a_records) {
        print "MX records for $domain:\n";
        foreach my $a_record (@a_records) {
            print "\t", $a_record->exchange, "\n";
        }
    } else {
        print "No MX records for $domain\n";
    }
}

在这个示例中，我们使用Net::DNS模块创建了一个DNS解析器对象，并设置了查询超时时间和重试次数。然后，我们定义了一个要查询的域名列表，并遍历这个列表，执行DNS查询。最后，我们打印查询结果。

要运行此脚本，请确保已安装Net::DNS模块。您可以使用以下命令安装它：