perl - Perl のリクエスト ヘッダーを含む Web ページへの POST

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