Perl 会话中的 LWP::UserAgent 代理

Question

我需要在一次 Perl 运行（进程）中更改代理服务器。但是LWP::UserAgent 总是记住 first 代理值。

当我使用代理x.x.x.2 启动我的程序时，此地址始终用作代理。

怎么了？

简单程序示例：

getHTTP('http://my.com/', "http://x.x.x.1:3128");
getHTTP('http://my.com/', "http://x.x.x.2:3128");
getHTTP('http://my.com/', "");
getHTTP('http://my.com/', "http://x.x.x.3:3128");

sub getHTTP {
    my ($url, $proxy) = @_;
    use LWP::UserAgent;

    my $ua = LWP::UserAgent->new;
    $ua->proxy(http => $proxy);
    my $req = HTTP::Request->new(GET => $url);
    return $ua->request($req)->as_string;
}

HTTP 日志的输出：

x.x.x.1 - - [09/Feb/2015:15:28:06 +0100] "GET / HTTP/1.0" 200 3467
x.x.x.1 - - [09/Feb/2015:15:29:07 +0100] "GET / HTTP/1.0" 200 3467
y.y.y.y - - [09/Feb/2015:15:29:08 +0100] "GET / HTTP/1.0" 200 3467
x.x.x.1 - - [09/Feb/2015:15:29:09 +0100] "GET / HTTP/1.0" 200 3467

（y.y.y.y 是我的无代理地址）

操作系统：Debian GNU/Linux 7

新发现： 当我运行下一个 perl 或 shell 脚本时。结果和上面一样。

proxy.sh:

curl -x "http://x.x.x.1:3128" http://my.com/
curl -x "http://x.x.x.2:3128" http://my.com/
curl -x "http://x.x.x.3:3128" http://my.com/

结果：总是 x.x.x.1 代理

proxy.pl:

`curl -x "http://x.x.x.4:3128" http://my.com/`;
`curl -x "http://x.x.x.5:3128" http://my.com/`;
`curl -x "http://x.x.x.6:3128" http://my.com/`;

结果：总是 x.x.x.4 代理

代理设置似乎无法在一个 shell 进程中更改。

Answer 1

我不知道这里到底发生了什么，事实上，我认为您可能在 LWP 中发现了一个错误（如果您向我们展示的内容就是您实际执行的内容）。但是，您是否有理由从 HTTP::Request 构建 GET 请求，而不是直接通过用户代理对象？换句话说，不要这样做：

my $req = HTTP::Request->new(GET => $url);
return $ua->request($req)->as_string;

这样做：

my $res = $ua->get($url);
return $res->as_string;

理论上，这两种方法应该是等效的，但我想知道当你这样做时代理设置是否没有正确传播到 HTTP::Request。