带有内容类型和授权 token 的 Perl HTTP POST 请求

Question

我需要使用以下 HTTP header 发送 HTTP POST 请求:

Content-type: 'application/atom+xml'
Authorization: MyLogin auth=$token

token 来自授权子程序。这是子例程成功后发出实际请求的 Perl:

my  $ua = LWP::UserAgent->new;
my  $req = $ua->post ( $url );
    $req = header('Content-type' => 'application/atom+xml');
    $req = header('Authorization' => "MyLogin auth=$token");

但是，我在运行时收到以下错误:

Undefined subroutine &main::header called ...

我怎样才能做到这一点？

Answer 1

根据LWP::UserAgent documentation ，您可以通过将它们作为参数传递给 post 来设置其他标题。 :

my $ua = LWP::UserAgent->new;
my $response = $ua->post($url,
    'Content-type' => 'application/atom+xml',
    'Authorization' => "MyLogin auth=$token"
);

请注意 $ua->post实际上发送请求，因此在调用它之后尝试设置 header ，就像您在示例代码中所做的那样，是没有用的。 (更不用说 header 命名空间中没有 main 函数的事实，除非您从某处导入它或自己编写它。)