在 Perl 中发布到带有请求标头的网页

Question

我正在尝试使用Perl将数据发布到页面，但是该页面还需要标题。我将如何发布标头和发送标头（cookie、用户代理等）？

我尝试使用 LWP：：UserAgent，但即使我可以发布到页面，我也不知道如何发送标题。

关于这个话题的另一件事。当我在该页面上发布并打印响应内容时，除了应该显示的数字之外，我可以看到html很好。

Answer 1

尝试这样做：

use LWP::UserAgent;
use HTTP::Request;
my $userAgent = LWP::UserAgent->new();
my $request = HTTP::Request->new(
    POST => "http://domain.tld/path"
);
$request->content("stuff=foobar");
$request->content_type("application/x-www-form-urlencoded");
my $response = $userAgent->request($request);
if ($response->code == 200) {
    print $response->as_string;
}
else {
   die $response->status_line;
}