在 Perl 中使用不同的出站 IP

Question

我们在同一台服务器上运行了几个不同的网站，它们都访问 1 个特定的 Web 服务，每个网站都有自己唯一的 API 密钥。不幸的是，网络服务有基于 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/");