如何默認配置AnyEvent :: DNS解析器？

Question

如何在默認情況下配置AnyEvent::DNS解析器，我想更改max_outstanding,reuse,timeout。 有一個環境變量$ENV{PERL_ANYEVENT_MAX_OUTSTANDING_DNS}，但如何更改reuse和timeout？

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;