如何处理Net::DNS设置域名服务器的错误？抑制输出并自定义操作

一、抑制自动错误输出 #

Net::DNS::Resolver默认会在nameservers方法出错时将错误信息打印到标准错误输出，只需设置解析器的print属性为0即可禁用该行为：

my $resolver = Net::DNS::Resolver->new();
$resolver->print(0); # 关闭模块自动输出错误到STDERR

二、获取错误消息并执行自定义操作 #

当nameservers返回0（表示操作失败）时，调用解析器的errorstring()方法就能获取到具体的错误内容，之后可基于该信息实现自定义逻辑：

my $result = $resolver->nameservers($somenameserver);
if (!$result) {
    my $error_msg = $resolver->errorstring();
    # 自定义操作示例：写入日志、输出自定义提示等
    warn "DNS服务器配置出错：$error_msg";
}

完整示例代码：

my $resolver = Net::DNS::Resolver->new();
$resolver->print(0);

my $somenameserver = 'uuu.aaa.eee';
my $result = $resolver->nameservers($somenameserver);

if (!$result) {
    my $error_msg = $resolver->errorstring();
    # 替换为你的自定义处理逻辑
    print "自定义错误提示：$error_msg\n";
}

内容的提问来源于stack exchange，提问作者Matteo