在Perl中使用不同的出站IP

Question

我们在同一台服务器上运行了几个不同的网站,每个网站都访问1个特定的Web服务,每个网站都有自己独特的API密钥.遗憾的是,Web服务具有基于IP地址(不是API密钥)的每日限制,因此,虽然我们的每个站点都低于其每日限制,但它们超过了IP限制.当通过Web浏览器访问时,每个网站都运行在不同的静态IP地址上,但是当perl脚本在每个网站用户帐户下运行时,它们的出站IP地址是相同的.

我的问题是如何才能使每个perl脚本使用特定站点的正确IP地址,以便每个人都可以保持在Web服务的每日限制内？更简单的说,perl脚本如何使用LWP perl模块更改它正在进行的调用的出站IP地址？解释很好,但代码示例会更好.

在此先感谢您的帮助!

Answer 1

使用LWP :: UserAgent,您只需使用''local_address''方法来确定传出连接所需的IP地址:

my $ua = new LWP::UserAgent;
$ua->local_address("10.10.10.10");
my $response = $ua->get("http://stackoverflow.com/");