在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;
}