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

Question

默认如何配置resolver ，AnyEvent::DNS我要改max_outstanding，，，。有一个环境变量，但是怎么改呢？reusetimeout$ENV{PERL_ANYEVENT_MAX_OUTSTANDING_DNS}reusetimeout

Answer 1

$ENV{PERL_ANYEVENT_MAX_OUTSTANDING_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;