在Perl中使用不同的出站in

Question

我们有几个不同的网站运行在同一服务器上，所有网站都访问一个特定的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/");