perl - Set a Referer header in Mojo::UserAgent

Question

I am writing a program to access the web using Mojo::UserAgent

I want to set the Referer header value but I do not know how.

Perl code

my $ua   = Mojo::UserAgent->new();
my $data = $ua->get('https://test.com')->res->body;

print $data,"\n";

标签： perlreferer

Answer 1

您可以像使用Mojo::UserAgentReferer设置任何其他请求标头一样设置标头：

my $data = $ua->get('https://test.com' => {Referer => 'https://stackoverflow.com/questions/50956597'})->res->body;