LWP :: UserAgent设置请求的URL的IP，以便LWP不必做DNS查找

Question

我使用LWP::UserAgent来请求大量的页面内容。我已经知道我请求的网址的IP地址，所以我希望能够指定我请求的网址的IP地址，以便LWP不必花时间进行DNS查找。我浏览过文档，但没有找到任何解决方案。有谁知道一种方法来做到这一点？谢谢！

Answer 1

所以我发现，正是我要找的不模块：LWP::UserAgent::DNS::Hosts

这里是我测试和做什么，我在我的问题指定的一个示例脚本：

#!/usr/bin/perl 
use strict; 
use LWP::UserAgent; 
use LWP::UserAgent::DNS::Hosts; 

LWP::UserAgent::DNS::Hosts->register_host(
     'www.cpan.org' => '199.15.176.140', 
); 

my $ua = LWP::UserAgent->new; 
$ua->timeout(10); 
$ua->env_proxy; 

#actually enforces new DNS settings as if they were in /etc/hosts 
LWP::UserAgent::DNS::Hosts->enable_override; 

my $response = $ua->get('http://www.cpan.org/'); 

if ($response->is_success) { 
    print $response->decoded_content; # or whatever 
} 
else { 
    die $response->status_line; 
} 

Answer 2

只需在您的网址的IP地址替换域名：

use strict; 
require LWP::UserAgent; 

my $ua = LWP::UserAgent->new; 
$ua->timeout(10); 
$ua->env_proxy; 

# my $response = $ua->get('http://stackoverflow.com/'); 
my $response = $ua->get('http://64.34.119.12/'); 

if ($response->is_success) { 
    print $response->decoded_content; # or whatever 
} 
else { 
    die $response->status_line; 
} 

Answer 3

哼，你的系统应该已经被缓存DNS响应。你确定这个优化会有帮助吗？

---

选项1.

使用

http://192.0.43.10/ 

，而不是

http://www.example.org/ 

当然，如果服务器不基于域名的虚拟主机，将失败。

---

选项2

替换Socket::inet_aton（从IO称为::插座:: INET从LWP ::协议:: HTTP调用）与高速缓存版本。

use Socket qw(); 
BEGIN { 
    my $original = \&Socket::inet_aton; 

    my %cache; 
    my $caching = sub { 
     return $cache{$_[0]} //= $original->($_[0]); 
    }; 

    no warnings 'redefine'; 
    *Socket::inet_aton = $caching; 
}