【協力願】Boo2008(旧Boo80)で串を食べませんか？ その11

[173 ※ ◆Boo2014ByhBJ 2013/12/11(水) 14:51:00.06 ID:tpuCARL50]

現状
# Net::DNSオブジェクト
my $Resolver = Net::DNS::Resolver->new(
# nameservers => [qw(127.0.0.1 206.223.146.254)], # 自分自身とPIEのと。
persistent_tcp => 1,
persistent_udp => 1,
udp_timeout => 10,
tcp_timeout => 10,
retry => 10,
# debug => 1,
);

こうしてみますね（タイムアウト短く、リトライ少なく）
# Net::DNSオブジェクト
my $Resolver = Net::DNS::Resolver->new(
# nameservers => [qw(127.0.0.1 206.223.146.254)], # 自分自身とPIEのと。
persistent_tcp => 1,
persistent_udp => 1,
udp_timeout => 5,
tcp_timeout => 5,
retry => 3,
# debug => 1,
);

persistentは、ふぉるすにしてもいぃかな。