如何默认配置 AnyEvent::DNS 解析器?
How to configure AnyEvent::DNS resolver by default?
如何默认配置AnyEvent::DNS
解析器,我想改成max_outstanding
、reuse
、timeout
。
有环境变量$ENV{PERL_ANYEVENT_MAX_OUTSTANDING_DNS}
,但是reuse
和timeout
怎么改?
$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;
如何默认配置AnyEvent::DNS
解析器,我想改成max_outstanding
、reuse
、timeout
。
有环境变量$ENV{PERL_ANYEVENT_MAX_OUTSTANDING_DNS}
,但是reuse
和timeout
怎么改?
$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;