Perl WWW::Mechanize：如何独立于 URL 指定目标 IP 地址？

问题描述

我想使用 Perl www::mechanize 连接到网络服务器并请求资源。例如。 http://www.my.domain/test.html。但我想独立于 URL 中的主机名指定 IP 地址。

例如：www.my.domain 解析为 1.1.1.1，但我想连接到 2.2.2.2。

我想这样做是为了测试负载均衡器后面的多个 Web 服务器。

解决方法

使用LWP::UserAgent::DNS::Hosts;

它与 WWW::Mechanize 配合良好。

use LWP::UserAgent::DNS::Hosts;
use WWW::Mechanize;

LWP::UserAgent::DNS::Hosts->register_host('www.my.domain' => '2.2.2.2');
LWP::UserAgent::DNS::Hosts->enable_override;

my $mech = WWW::Mechanize->new;
$mech->get('http://www.my.domain/test.html'); # connects to 2.2.2.2