Perl 默认情况下如何配置AnyEvent:：DNS解析器？

如何配置

AnyEvent:：DNS

解析程序默认情况下，我想更改

max_untible

，

重用

，

超时

。

---

有一个环境变量

$ENV{PERL\u ANYEVENT\u MAX\u summent\u DNS}

，但是如何更改

重用

和

超时

？

只有在使用默认解析程序时才使用
$ENV{PERL\u ANYEVENT\u MAX\u summent\u DNS}
，因此您必须使用默认解析程序，所以您可以只更改默认解析程序

use AnyEvent::DNS qw( );

my $resolver = AnyEvent::DNS->new(
   untaint         => 1,
   max_outstanding => $ENV{PERL_ANYEVENT_MAX_OUTSTANDING_DNS}*1 || ...,
   reuse           => ...,
   timeout         => ...,
);

$ENV{PERL_ANYEVENT_RESOLV_CONF}
   ? $resolver->_load_resolv_conf_file($ENV{PERL_ANYEVENT_RESOLV_CONF})
   : $resolver->os_config;

$AnyEvent::DNS::RESOLVER = $resolver;

$ENV{PERL\u ANYEVENT\u MAX\u unterming\u DNS}
仅在使用默认冲突解决程序时使用，因此您必须使用默认冲突解决程序，因此您只需更改默认冲突解决程序即可

use AnyEvent::DNS qw( );

my $resolver = AnyEvent::DNS->new(
   untaint         => 1,
   max_outstanding => $ENV{PERL_ANYEVENT_MAX_OUTSTANDING_DNS}*1 || ...,
   reuse           => ...,
   timeout         => ...,
);

$ENV{PERL_ANYEVENT_RESOLV_CONF}
   ? $resolver->_load_resolv_conf_file($ENV{PERL_ANYEVENT_RESOLV_CONF})
   : $resolver->os_config;

$AnyEvent::DNS::RESOLVER = $resolver;

我再次向你表示感谢。我不太明白AnyEvent:：DNS的设置中定义重用的是什么。描述中说：“超时后查询id不能重复使用的秒数（默认值：300）。如果没有超时，则可以立即重用查询id。”什么是“查询id”，为什么要等待300秒？不知道。我再次向你表示感谢。我不太明白AnyEvent:：DNS的设置中定义重用的是什么。描述中说：“超时后查询id不能重复使用的秒数（默认值：300）。如果没有超时，则可以立即重用查询id。”什么是“查询id”，为什么要等待300秒？不知道。