perl - 使用代理发布参数(perl)

Question

我要发送参数(phd => text , go => submit)使用 http 代理。我怎样才能做到这一点？

我有这个 Perl 代码:

my $ua = LWP::UserAgent->new();
my $req = POST 'http://example.com',
[ phd => 'text' , go => 'submit'];
$content = $ua->request($req)->as_string; 
print $content;

Answer 1

添加一条指令，以便用户代理知道您的代理的位置:

$ua->proxy("http", "http://localhost:8888");

至于关于 POST 是一个有效的裸词的评论(我可能不会注意到)，我的模块中有这样的内容:

use HTTP::Request::Common qw( POST GET );